limites_iqr <- dados_tomate |>
summarise(q1 = quantile(peso_g, 0.25), q3 = quantile(peso_g, 0.75)) |>
mutate(iqr = q3 - q1,
limite_inf = q1 - 1.5 * iqr,
limite_sup = q3 + 1.5 * iqr)
dados_tomate |>
mutate(outlier_iqr = peso_g < limites_iqr$limite_inf |
peso_g > limites_iqr$limite_sup) |>
filter(outlier_iqr)
