R script for mat

librarfor1(readxl)
values <- read_excel("C:\\Users\\Admin\\Desktop\\stat\\data.xlsx")
sortedValues <- values[order(values$value),]
for0 <- values$value[values$mark == 0]
for1 <- values$value[values$mark == 1]

nortest::pearson.test(for0)
nortest::pearson.test(for1)

nortest::lillie.test(for0)
nortest::lillie.test(for1)

mean(for0)
mean(for1)
t.test(for0, for1)
var(for0)
var(for1)
var.test(for0, for1)

wilcox.test(for0, for1,efor0act = F, conf.int = T, Paired = F)

oneThird1 <- (max(values$value)-min(values$value))/3 + min(values$value)
oneThird2 <- oneThird1+(max(values$value)-min(values$value))/3
oneThird3 <- max(values$value)
countFor01 <- length(for0[for0<oneThird1])
countFor02 <- length (for0[for0<oneThird2 & for0>oneThird1])
countFor03 <- length (for0[for0>oneThird2])
countFor11 <- length(for1[for1<oneThird1])
countFor12 <- length (for1[for1<oneThird2 & for1>oneThird1])
countFor13 <- length (for1[for1>oneThird2])
name<- c (0, 1)
table <- rbind(c(countFor01, countFor11),c(countFor02, countFor12), c(countFor03, countFor13),names(name))
chisq.test(table)
table