-erledigt-
Verfasst: Fr 15. Mär 2013, 18:16
- erledigt -
Danke
Danke
Hilfe und Beratung bei statistischen Fragen
http://www.statistik-forum.de/
k <- 3
grundgesamtheit <- c(10, 10, 10, 10, 10, 5, 5, 5, 3, 1)
mittelwert.der.grundgesamtheit <- mean(grundgesamtheit)
#Stichprobe ziehen geht so
stichprobe <- sample(grundgesamtheit, k)
# Zehntausend Stichproben ziehen geht so
stichproben <- replicate(10000, sample(grundgesamtheit, k))
# Die Mittelwerte aus allen 10000 Stichproben geht so:
colMeans(stichproben)
# Und so malt man davon ein Histogramm
hist(colMeans(stichproben))
# Und da zeichnen wir jetzt noch den Mittelwert der Grundgesamheit ein:
abline(v=mittelwert.der.grundgesamtheit, col="red")