Daten Sie arbeiten bei der Flughafenaufsicht von NYC. Cooler Job. library(nycflights13) data(flights) Pakete laden library(mosaic) Stichprobe ziehen Die Aufsichtsbehörde zieht eine Probe von 100 Flügen und ermittelt die “typische” Verspätung. set.seed(42) sample(flights$arr_delay, size = 100) -> flights_sample Und berechnen wir die typischen Kennwerte: favstats(~flights_sample, na.rm = TRUE) #> min Q1 median Q3 max mean sd n missing #> -51 -18.75 -5 11.75 150 0.4387755 31.1604 98 2 Ob $n=3$ ausreichen …