a) Сгенерируйте 50 значений из X ~ N (μX = 25, σX = 4) и 50 значений из Y ~ N (μY = 25, σY = 4). Используйте t-тест, чтобы проверить равенство средств.
c) Повторите часть (a) 2500 раз и сохраните p-значение для каждого из 2500 тестов. Каждое повторение должно генерировать новую выборку для x и новую выборку для y. НЕ ПЕЧАТЬ p-значения. НЕ ИСПОЛЬЗУЙТЕ петлю.
Я решил для части A одну выборку rnorm
, но я не понимаю, с чего начать, чтобы получить 2500 разных случайных выборок x и 2500 разных случайных выборок y, чтобы получить 2500 разных p-значений.
Я также не знаю, как написать свой код, чтобы мой профессор получил те же ответы, что и я. Я попытался установить начальное значение, но это только делает все значения p одинаковыми, используя мой код выше.
# Part A
set.seed(1081)
x = rnorm(50,25,4)
y = rnorm(50,25,4)
t.test(x,y)
#Part B
#The p-value is 0.3752.
#We do not reject the null hypothesis.
#Part C
x1 = sample(x, 2500, replace = T)
y1 = sample(y, 2500, replace = T)
pval = sample(t.test(x1,y1)$p.value, 2500, replace = T)