Нельзя нормально распределять данные в дискретном масштабе с жесткими ограничениями. Выборка, полученная из нормального распределения со средним значением от 0 до 5, будет симметричной относительно среднего значения, будет принимать не непрерывные, а дискретные значения и будет иметь ненулевую вероятность содержать значения меньше нуля и больше 5.
Вы хотите, чтобы ваша выборка содержала дискретные значения от нуля до пяти и имела центральную тенденцию к среднему значению. Чтобы эмулировать баллы с определенным средним значением, вам необходимо произвести выборку из биномиального распределения , используя rbinom
.
get_n_samples_averaging_m <- function(n, m)
{
rbinom(n, 5, m/5)
}
Теперь вы можете сделать
samp <- get_n_samples_averaging_m(40, 1.5)
print(samp)
# [1] 1 3 2 1 3 2 2 1 1 1 1 2 0 3 0 0 2 2 2 3 1 1 1 1 1 2 1 2 0 1 4 2 0 2 1 3 2 0 2 1
mean(samp)
# [1] 1.5