# Descriptive statistics

#### Quick overview of the dataset

```{r tab_DatasetOverview,out.width = "50%", echo=FALSE}
library(knitr)
library(kableExtra)
kable(as.data.frame(rv$text.log),format = "html", escape = FALSE)%>% row_spec(0,bold=TRUE,background = '#fff8ff') %>% 
kable_styling(bootstrap_options = c( "bordered","striped"), full_width = F)
detach("package:kableExtra", unload=TRUE)
```



<!-- ```{r fig_histoMV,out.width = "75%", echo=FALSE} -->
<!-- filename <-  normalizePath(paste(tempdir(), gGraphicsFilenames$histoMV_Image_DS, sep="/")) -->
<!-- if (file.exists(filename)){ -->
<!--     knitr::include_graphics(filename) -->
<!-- } -->
<!-- ``` -->


<!-- ```{r fig_histoMVperLines,out.width = "75%", echo=FALSE} -->
<!-- filename <-  normalizePath( paste(tempdir(), gGraphicsFilenames$histo_missvalues_per_lines_DS, sep="/")) -->
<!-- if (file.exists(filename)){ -->
<!--     knitr::include_graphics(filename) -->
<!-- } -->
<!-- ``` -->


<!-- ```{r fig_histoMVperCond,out.width = "75%", echo=FALSE} -->
<!-- filename <-  normalizePath(paste(tempdir(), gGraphicsFilenames$histo_missvalues_per_lines_per_conditions_DS, sep="/")) -->
<!-- ``` -->

<!-- ```{r fig_corMatrix,out.width = "75%", echo=FALSE} -->
<!-- filename <-  normalizePath(paste(tempdir(), gGraphicsFilenames$corrMatrix, sep="/")) -->
<!-- if (file.exists(filename)){ -->
<!--     knitr::include_graphics(filename) -->
<!-- } -->
<!-- ``` -->


<!-- ```{r fig_boxplot,out.width = "75%", echo=FALSE} -->
<!-- filename <-  normalizePath(paste(tempdir(), gGraphicsFilenames$boxplot, sep="/")) -->
<!-- if (file.exists(filename)){ -->
<!--     knitr::include_graphics(filename) -->
<!-- } -->
<!-- ``` -->


<!-- ```{r fig_dentistyPlot,out.width = "75%", echo=FALSE} -->
<!-- filename <-  normalizePath(paste(tempdir(), gGraphicsFilenames$densityPlot, sep="/")) -->
<!-- print(filename) -->
<!-- if (file.exists(filename)){ -->
<!--     knitr::include_graphics(filename) -->
<!-- } -->
<!-- ``` -->


<!-- ```{r fig_varDist,out.width = "75%", echo=FALSE} -->
<!-- filename <-  normalizePath(paste(tempdir(), gGraphicsFilenames$varDist, sep="/")) -->
<!-- if (file.exists(filename)){ -->
<!--     knitr::include_graphics(filename) -->
<!-- } -->
<!-- ``` -->


<!-- ```{r fig_vioplot,out.width = "75%", echo=FALSE} -->
<!-- filename <-  normalizePath(paste(tempdir(), gGraphicsFilenames$violinplot, sep="/")) -->
<!-- if (file.exists(filename)){ -->
<!--     knitr::include_graphics(filename) -->
<!-- } -->
<!-- ``` -->


<!-- ```{r fig_heatmap,out.width = "100%", echo=FALSE} -->
<!-- filename <-  normalizePath(paste(tempdir(), gGraphicsFilenames$heatmap, sep="/")) -->
<!-- if (file.exists(filename)){ -->
<!--     knitr::include_graphics(filename) -->
<!-- } -->
<!-- ``` -->


