```{r snelzicht,echo = FALSE,results = 'asis'}
## we maken even tabellen van het aantal dieren, het aantal dagen in laktatie, het gemiddelde laktatienummer en de gemiddelde productie:
## moeten ook afronden om de getallen mooi te krijgen
tND <- with(prod,tapply(DIER,DATUM,length))
tDIL <- round(with(prod,tapply(DIL,DATUM,mean,na.rm = TRUE)),0)
tNLACT <- round(with(prod,tapply(NLACT,DATUM,mean,na.rm = TRUE)),2)
tPROD <- round(with(prod,tapply(KG_MELK,DATUM,mean,na.rm = TRUE)),2)

## en zetten die tabellen bij elkaar in een data.frame
tab <- data.frame(DATUM = names(tND),N_DIEREN = tND,DIL = tDIL,NLACT = tNLACT,PROD = tPROD)

## deze tabel is nu goed, nu zetten we hem in ons rapport
## we gebruiken nu functie xtable om er een goede html tabel van te maken, anders ziet het er niet uit
print(xtable(tab,caption = 'Snelzicht van de het bedrijf.'),type = 'html',caption.placement = 'top',include.rownames = FALSE)
```