histogramm

lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", header=TRUE, sep=",")
hist(lapsed$pikkus)

tapply(lapsed$mass, lapsed$sugu, mean)

##        m        n 
## 57.52941 50.00000

barplot(tapply(lapsed$mass, lapsed$sugu, mean))

barplot(tapply(lapsed$mass, lapsed$sugu, mean), xlab="sugu", ylab="mass",
         ylim=c(0, 70), main="Pikkus vastavalt soole")