3482
правки
Изменения
м
→Маленькие хитрости
X9 0.9915 0.7834
X10 0.9808 0.1531
</syntaxhighlight>
===== Применение функций к нескольким по группам =====
Добавим к нашей таблицы группы испытуемых:
<syntaxhighlight lang="rsplus">
> DF$GRP <- sample(LETTERS[1:3], size = 100, replace = TRUE)
</syntaxhighlight>
Рассчитаем значения критерия Шапиро - Уилка для первого столбца для каждоый группы испытуемых:
<syntaxhighlight lang="rsplus">
> 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
</syntaxhighlight>
