data <- read_excel("filename.xlsx") #чтение Excel файла
data0 <- data$value[data$mark == 0] #получение выборки с 0
data1 <- data$value[data$mark == 1] #получение выборки с 1
#Критерий Хи-квадрат
pearson.test(data0)
pearson.test(data1)
#критерий Колмогорова-Смирнова (Лиллиефорса)
lillie.test(data0)
lillie.test(data1)
t.test(data0, data1)#критерий Стьюдента
var.test(data0,data1)#критерий Фишера
wilcox.test(data0, data1, exact = F, conf.int = T, Paired = F)#критерий Уилкоксона
#сортировка и разбиение на отрезки
sortedData <- data[order(data$value),]
bound2<- (max(data$value)-min(data$value))/3 + min(data$value)
bound3 <- bound2+(max(data$value)-min(data$value))/3
count00 <- length(data0[data0<bound2])
count01 <- length(data1[data1<bound2])
count10 <- length (data0[data0<bound3 & data0>bound2])
count11 <- length (data1[data1<bound3 & data1>bound2])
count20 <- length (data0[data0>bound3])
count21 <- length (data1[data1>bound3])
table <- data.frame(Zero = c(count00, count10, count20), One=c(count01,count11,count21))
chisq.test(table)#Хи-квадрат таблицы