---
title: "histogramm"
output: html_document
---
```{r}
lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", header=TRUE, sep=",")
hist(lapsed$pikkus)
tapply(lapsed$mass, lapsed$sugu, mean)
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")

```