library(readxl)
grano <- read_excel("C:/Users/efabrizi/Downloads/grano.xlsx")
View(grano)
summary(grano$Corsa)
hist(grano$Corsa)
boxplot(grano$Corsa)
boxplot(grano$Corsa~grano$Nome)
t.test(grano$Corsa~grano$Durezza, var.equal=TRUE)
t.test(grano$Corsa~grano$Durezza)
wilcox.test(grano$Corsa~grano$Durezza)