У меня есть следующая задача: предположим, что интересующая нас популяция может быть смоделирована распределением Бернулли с p = 0,5. Для каждого размера выборки n смоделируйте r = 5000 розыгрышей (используя цикл for по (i в 1:r)) из этого распределения Бернулли с p = 0,5 и рассчитайте стандартизированное среднее значение выборки для каждого розыгрыша.
Последняя гистограмма выглядит хорошо с кривой, но 1-я и 2-я неправильные. Может быть, кто-нибудь поможет мне с этим. Спасибо заранее за ваше время!
Я сделал следующее:
set.seed(2005)
x1 <- rbinom(5000,3,0.5)
par(mfrow=c(2,2))
hist(x=x1,
main=expression(paste(" Random Variables with",size,"=1 and",prob,"=0.5")),
sub="Standardized value of smple sample avearge",
xlab="n=3", ylab="Probability", probability = TRUE)
curve(dnorm(x, mean = mean(x), sd=sd(x)), add = TRUE, col="blue")