R中的t检验和计算p值

Question

从“ candisc”包中有一个数据集“ Wine”。任务是使用t检验在参数AlcAsh的蠕虫中比较“ grignolino”和“ barbera”。 p值是多少？答案应四舍五入到第五位。

我尝试解决任务，这是代码。

dat<-Wine[Wine$Cultivar == c('grignolino', 'barbera'), ]
tt<-t.test(AlcAsh~Cultivar, dat)
tt$p.value
[1] 0.01467608

p值计算错误。 可能是什么问题？

Answer 1

LOL的许多可能性让我们从以下几点开始：

dat<-Wine[Wine$Cultivar %in% c('grignolino', 'barbera'), ]
tt<-t.test(AlcAsh~Cultivar, dat, var.equal = TRUE)
tt$p.value
[1] 0.03519209
tt<-t.test(AlcAsh~Cultivar, dat, var.equal = FALSE)
tt$p.value
[1] 0.02365085

或者是单面的还是...