3482
правки
Изменения
м
Нет описания правки
{{CC-BY-4.0|author=автором Артём Клевцов</nowiki>}}
Предположение о принадлежности случайной величины нормальному закону распределения лежит в основе многих статистических методов и критериев. В ряде случаев соблюдение данного требования является критичным для применения того или иного метода.
На практике мы встречаемся с двумя вариантами задач по проверке принадлежности распределения нормальному закону: для одномерного и многомерного распределения.
{{Pkg-req-notice</nowiki>}}
== Одномерное нормальное распределение ==
Добавим к нашей таблице группы испытуемых:
{{r-code|code=<nowiki>> DF$GRP <- factor(sample(LETTERS[1:3], size = 100, replace = TRUE))</nowiki>
}}
Состав групп получился следующим:
{{r-code|code=<nowiki>
> table(DF$GRP)
A B C
38 25 37 </nowiki>
}}
Рассчитаем значения критерия Шапиро - Уилка для первого столбца для каждоый группы испытуемых:
{{r-code|code=<nowiki>
> do.call(rbind, tapply(DF$X1, DF$GRP, normTest))
W p.value
A 0.9522 0.13281
B 0.9607 0.28697
C 0.9410 0.07256</nowiki>
}}
Построение Q–Q plot с помощью пакета <code>stats</code> выглядит следующим образом:
{{r-code|code=<nowiki>
> qqnorm(x)
> qqline(x)</nowiki>
}}
Построение Q–Q plot с помощью пакета <code>QTLRel</code> выглядит следующим образом:
{{r-code|code=<nowiki>> qqPlot(x, x = "norm")</nowiki>
}}
Альтернативный вариант реализован в функции <code>qqPlot()</code> из пакета <code>car</code>:
{{r-code|code=<nowiki>> qqPlot(x, distribution = "norm")</nowiki>
}}
Построение P-P plot можно осуществить с помощью функции <code>probplot</code> из пакета <code>e1071</code>:
{{r-code|code=<nowiki>> probplot(x, qdist = qnorm)</nowiki>
}}
Ещё один интересный способ графического анализа представлен функцией <code>histDist</code> из пакета <code>gamlss</code>:
{{r-code|code=<nowiki>
> histDist(x, family = "NO", density = TRUE)
Global Deviance: 303.414
AIC: 307.414
SBC: 312.624 </nowiki>
}}