#此处数据源是一个两列数据excel文件,一列为不同处理trt,一列为对应结果response
install.packages('openxlsx')
library(openxlsx)
# 读取Excel文件
data <- read.xlsx("地址.xlsx", sheet = 1)
aggregate(data$response, by=list(data$trt), FUN=mean)
aggregate(data$response, by=list(data$trt), FUN=sd)
fit <- aov(data$response ~ data$trt)
summary(fit)
运行即可得到均值,标准差及组间差异