Knitr

---
title: "Overview "
output: html_notebook
---

Table creation and export

t =kable(title = 'Mean family sizes', fsizes, escape = F, align = "c") %>% kable_styling("striped", full_width = F)
save_kable(t,"Mean_family_sizes.jpg", self_contained = T)

Setup

\```{r setup, echo=FALSE}

load("Report.RData") 
load("Familyness.RData") 
\```
\```{r loss-plot, echo = FALSE}
g1
\```
\```{r loss-table, echo = FALSE}
dt.sumq
\```