R/create_age.R

In FCervantes/iemand: Random people

#' Create an age for someone
#'
#'@details "This function creates a random age for a random person"
#'
#' @return
#' @export
#'
#' @examples
create_age <- function(){
    age <- sample(1:100, 1)
    return(age)
}