Установите начальное значение 7. Выполните следующий расчет 100 раз.Найдите случайную выборку размера 4 из стандартного нормального распределения.Найдите среднеквадратичное отклонение от среднего значения данных выборки (используя формулу σ ^ 2 в качестве введите описание изображения здесь Затем найдите среднее из этих 100 оценок отклонений.
Для σ ^ 2, Мой код (1/n) * sum((x-mean(xi))^2). Прежде всего, я не знаю, имеет ли смысл мой код для σ ^ 2.
Затем я запускаю свой код для этого вопроса
set.seed(7)
xi <- rnorm(4)
mean(xi)
sd <- (1 / 4) * sum( (xi - mean(xi) )^2 )
q2 <- replicate(n=100, expr = {x=rnorm(4, mean(xi), sd)})
mean(q2)
Но я не мог получить правильный ответ.