1.分组做正态性检验
使用tapply()函数
如data为变量值,group为分组变量,则可以写为:
tapply(data,group,shapiro.test)
2.批量t检验
pvalue=apply(data,1,function(x) t.test(x[1:3],x[4:6],paired = T)$p.value)
3.批量设置为因子
Arabidopsis[,c("gen","rack","nutrient")] <- lapply(Arabidopsis[,c("gen","rack","nutrient")], factor)