---
title: "histogramm"
output: html_document
---
```{r}
 lapsed=read.table("http://www.tlu.ee/~jaagup/andmed/muu/5klass.txt", header=TRUE, sep=",")
 hist(lapsed$pikkus)
```