# Filtering

#### Parameters used for the filtering step on missing values :

* Type of filtering = `r params$listFiltering$mvFilterType`
* NA threshold = `r params$listFiltering$mvThNA`



```{r fig_MV1, out.width = "50%", echo=FALSE}
#knitr::include_graphics(paste(tempdir(), gGraphicsFilenames$histoMV_Image_DS_BeforeFiltering, sep="/"))
```

```{r fig_MV2, out.width = "50%", echo=FALSE}
#knitr::include_graphics(paste(tempdir(), gGraphicsFilenames$histo_missvalues_per_lines_DS_BeforeFiltering, sep="/"))

```

```{r fig_MV3, out.width = "50%", echo=FALSE}
#knitr::include_graphics(paste(tempdir(), gGraphicsFilenames$histo_missvalues_per_lines_per_conditions_DS_BeforeFiltering, sep="/"))
```


#### Parameters used for the filtering step on text-based string :

```{r tab_stringBasedFiltering,out.width = "50%", echo=FALSE}
library(knitr)
library(kableExtra)
df <- params$listFiltering$stringFilter.df
if (!is.null(df)){
h3("Parameters used for the filtering step on text-based string")
  kable(df)%>% row_spec(0,bold=TRUE,background = grey) %>% 
kable_styling(bootstrap_options = c( "bordered","striped"), full_width = F)
}
```

