R/beaup.R

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

#' Petit p bien présenté
#'
#' @param varp résultat du p
#'
#' @return beaup , chaine de caractère
#' 
#' @examples 
#' pp <- cor.test(iris$Sepal.Length,iris$Sepal.Width)
#' beaup(pp$p.value)
#' 
#' @export
beaup <- function(varp){
  if (varp < 0.001){
    beaup <- "p < 0,001"
  } 
  else {
    beaup <-round(varp,3)
  }
  return (beaup)
}


#' Moyenne et Ecart-type
#' 
#' retourne moyenne ± ecart-type d'un vecteur
#'
#' @param varz vecteur numérique
#'
#' @return chiane de caractère "moy ± sd"
#' 
#' @examples 
#' lms(iris$Sepal.Length)
#' 
#' @export
lms <- function(varz){
  llz <- paste0(signif(mean({{varz}}),3)," ± ", signif(sd({{varz}}),3))
  return(llz)
}