Документ взят из кэша поисковой машины. Адрес оригинального документа : http://herba.msu.ru/shipunov/school/biol_240/2014_2015/20150323.r Дата изменения: Mon Mar 23 21:02:30 2015 Дата индексирования: Sun Apr 10 19:10:18 2016 Кодировка:

binom.test(x=356, n=476, p=0.7, alternative="two.sided")
prop.test(x=356, n=476, p=0.7, alternative="two.sided")
prop.test(x=136, n=262, p=0.5, alt="greater")

a <- c(1,2,3,4,5)
b <- c(1,2,2,4,5)
t.test(a, b)

a <- 51:59
b <- 1:9
x <- rep(5, 9)
t.test(a, b)
t.test(b, x)
mean(b)

set.seed(1); t.test(a, (a+rnorm(9)), paired=T)

leaves <- read.table("http://ashipunov.info/data/leaves.txt", h=T)
Normality3 <- function(df, p=.05)
{
sapply(df, function(.x)
ifelse(shapiro.test(.x)$p.value > p,
"NORMAL", "NOT NORMAL"))
}
Normality3(leaves)
Normality3(trees)
t.test(leaves[,1], leaves[,2], paired=T)
t.test(leaves[,3], leaves[,4], paired=T)
wilcox.test(leaves[,1], leaves[,2], paired=T)