ttest <- t.test(mtcars$mpg,mtcars$wt,alternative = 'two.sided',
var.equal = FALSE)
ttest$p.value
pvalue <- ttest$p.value
if (pvalue <0.001 ) {
label <- "***"
} else if (pvalue <0.01 & pvalue >0.001) {
label <- "**"
} else if (pvalue <0.05 & pvalue >0.01) {
label <- "*"
} else {
label <- "ns"
}
R语言T检验判断
最新推荐文章于 2023-03-06 21:51:58 发布