equality<-read.csv("경로/noninferiority.csv")
head(equality)

#비열등성
install.packages("sasLM")
library(sasLM)

t1 = tsum1(equality, "score", "group", c("N", "Mean", "SD"))
round(t(t1),2)

#분산 동질성
var.test(score ~ group, equaility)

#집단 차이
t.test(score ~ group, equaility, var.equal=TRUE)