R/test.R

In philippemichel/thesisph: Tout ce qu'il faut pour debuter un travail simple

lms <- function(varz){
  llz <- paste0(signif(mean({{varz}}),3)," ± ", signif(sd({{varz}}),3))
  return(llz)
}

zz <- function(dfx = iris, varx = Sepal.Length, trix = Species){
  aa <- dfx %>% 
    summarise (lms({{varx}}))
  return(aa[[1]])
}