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
или может быть односторонним или ...