VincentGuyader

---
title: "My analysis `r Sys.Date()`"
knit: (function(inputFile, encoding) { rmarkdown::render(inputFile, encoding = encoding, output_file = file.path(dirname(inputFile), glue::glue('myfile_{thinkr::clean_vec(date())}.html'))) })
output:
  html_document:
    toc: true
    toc_float: true
    code_folding: hide
---

VincentGuyader

percent <- function(x, digits = 2, format = "f", ...) {
  paste0(formatC(100 * x, format = format, digits = digits, ...), "%")
}
mon_print <- function(synth){
  N<-nrow(synth)
  if( is.null(N)){
    N<-1
  synth <-
   matrix(synth,nrow=1)