populacao_soja <- tibble(
lote = 1:8000,
proteina = rnorm(8000, mean = 38.2, sd = 2.10))
amostra_soja <- populacao_soja |> slice_sample(n = 60)
bind_rows(
populacao_soja |> summarise(conjunto = "População", n = n(),
media = mean(proteina), dp = sd(proteina)),
amostra_soja |> summarise(conjunto = "Amostra", n = n(),
media = mean(proteina), dp = sd(proteina))) |>
mutate(across(where(is.numeric), ~ round(.x, 3)))


