Errore relativo delle stime puntuali

Campionamento in R

Richie Cotton

Data Evangelist at DataCamp

Il campione è il numero di righe

coffee_ratings %>% 
  slice_sample(n = 300) %>% 
  nrow()

coffee_ratings %>% 
  slice_sample(prop = 0.25) %>% 
  nrow()

coffee_ratings %>% 
  summarize(mean_points = mean(total_cup_points)) %>% 
  pull(mean_points)

82.15

coffee_ratings %>% 
  slice_sample(n = 10) %>% 
  summarize(mean_points = mean(total_cup_points)) %>% 
  pull(mean_points)

82.82

coffee_ratings %>% 
  slice_sample(n = 100) %>% 
  summarize(mean_points = mean(total_cup_points)) %>% 
  pull(mean_points)

82.02

coffee_ratings %>% 
  slice_sample(n = 1000) %>% 
  summarize(mean_points = mean(total_cup_points)) %>% 
  pull(mean_points)

82.16

Parametro della popolazione

population_mean <- coffee_ratings %>% 
  summarize(mean_points = mean(total_cup_points)) %>% 
  pull(mean_points)

Stima puntuale

sample_mean <- coffee_ratings %>% 
  slice_sample(n = sample_size) %>% 
  summarize(mean_points = mean(total_cup_points)) %>% 
  pull(mean_points)

Errore relativo in percentuale

100 * abs(population_mean - sample_mean) / population_mean

ggplot(errors, aes(sample_size, relative_error)) +
  geom_line() +
  geom_smooth(method = "loess")

Grafico a dispersione di errore relativo vs dimensione del campione.

Campionamento in R