С помощью скрипта
set.seed(1234)
x1<- rnorm(100,10,3)
x2 <- rnorm(100,10,4)
сгенерированы две случайные последовательности
Чему равно наблюдаемое значение p-value при проверке двусторонней гипотезы о равенстве дисперсий двух случайных величин при допущении о их нормальном распределении. Ответ дать до трех знаков после запятой. В ответе указывать десятичный разделитель “,”
R
var_ratio <- var(x1) / var(x2)
Затем, используя эту величину, можно рассчитать p-value, который будет указывать на вероятность получить наблюдаемое значение отношения дисперсий при условии справедливости нулевой гипотезы (равенстве дисперсий):
R
p_value <- 2 * min(pf(var_ratio, df1 = length(x1) - 1, df2 = length(x2) - 1), 1-pf(var_ratio, df1 = length(x1) - 1, df2 = length(x2) - 1))
В данном случае мы используем двухсторонний вариант теста, поэтому умножаем p-value на 2.
Наконец, чтобы получить окончательный ответ с требуемым форматом, необходимо ограничить число знаков после запятой до трех:
R
final_p_value <- round(p_value, 3)
Таким образом, наблюдаемое значение p-value при проверке двусторонней гипотезы о равенстве дисперсий двух случайных величин при допущении о их нормальном распределении будет равно final_p_value.
В данном случае, поскольку случайные величины x1 и x2 были сгенерированы с помощью функции rnorm, которая генерирует случайные числа с нормальным распределением, их дисперсии могут быть сравнены с помощью теста Флингера-Кила. Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет
Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет