鲁达 ## 单样本的t检验
mydata <- c) #构建数据集合
(mydata) #判断样本是否正态
mean(mydata) #单样本t检验
t.test(mydata, alternative = ";, mu = 22.5) #mu数据的真实均值
#t.test(x, y = NULL,alternative = c(";, "less", "greater"),mu = 0, paired = FALSE, var.equal = FALSE,conf.level = 0.95, ...)
#alternative用于指定备择假设方法，是双尾检验，less是左侧单尾检验，greater是右侧单尾检验；mu是数据的真实均值；paired用于指定是否进行配对检验，默认为FALSE；var.equal用于指定两个方差是否相等；conf.level指定置信水平，默认为0.95
## 配对样本的t检验
#构造数据集合,上下对应的为一组，求差值，一共6组
x1<-c)
x2<-c)
t.test(x1,x2,alternative = ";,paired=T)
## 完全随机样本的t检验
c1<-c(152,176,159,165,166,155,178,160,166,150)
c2<-c(165,158,166,168,160,180,169,180,174,170)
data<-c(c1,c2)
a <-factor(c(rep(1,10),rep(2,10)))
bar(data~a)
t.test(c1,c2,paired = FALSE)