```{r overzichtgroepen,echo = FALSE,results = 'asis'}
tGP <- round(with(prod,tapply(KG_MELK,list(DATUM,GROEP),mean,na.rm = TRUE)),2)
print(xtable(tGP,caption = 'Gemiddelde melkproductie per groep en per datum.'),type = 'html',caption.placement = 'top',include.rownames = TRUE)
```