hist(mites$Galumna)
mean(mites$Galumna)