inst/data/chapitre12/R/sortilege_age.R

In InseeFrLab/funcamp-r-grimoire: Ressources pédagogiques funcamp

#' @title calcul_age
#' @description Calculer l'âge d'un statisien, sans arrondi, selon son nombre de coeurs
#' @param nb_coeur A number
#' @examples
#' calcul_age(3)
#' calcul_age(4)
calcul_age <- function(nb_coeur) { 
  nb_coeur * pi^2 - 2 * nb_coeur
}

#' @title calcul_age_arrondi
#' #' @description Calculer l'âge arrondi d'un statisien selon son nombre de coeurs
#' @param nb_coeur A number
#' @import tidyverse
#' @examples
#' calcul_age_arrondi(3)
#' calcul_age_arrondi(4)
calcul_age_arrondi <- function(nb_coeur) { 
  calcul_age(nb_coeur) %>% round()
}