---
title: "Diabetes"
output: html_document
---

**Dane dotyczące cukrzycy**

$$BMI=\frac{masa}{wzrost^2}$$


```{r}
load("Diabetes.RData")
dane=Diabetes
zz=6
zg=9
stat=tapply(dane[,zz],dane[,zg],summary)
stat
```

Wykres

```{r, echo=FALSE}
tekst=colnames(dane)[zz]
boxplot(dane[,zz]~dane[,zg],main=tekst)
```


