Документ взят из кэша поисковой машины. Адрес оригинального документа : http://herba.msu.ru/shipunov/school/biol_240/2011_2012/data/normality1.r Дата изменения: Tue Mar 20 07:28:14 2012 Дата индексирования: Mon Apr 11 04:18:45 2016 Кодировка:

Normality11 <- function(data.f)
{
result <- data.frame(var=names(data.f), p.value=rep(0, ncol(data.f)), normality=is.numeric(names(data.f)))
for (i in 1:ncol(data.f))
{
data.sh <- shapiro.test(data.f[, i])$p.value
result[i, 2] <- round(data.sh, 5)
result[i, 3] <- (data.sh > .05)
}
return(result)}