R/create_age.R

In kamermanpr/iemand: Create Fake People

#' @title
#' Generate an age value
#'
#' @description
#' Randomly generates an age in years (between 0 and 100 years).
#'
#' @return
#' age (integer)
#'
#' @export
#'
#' @examples
#' create_age()
#'
create_age <- function() {
    age <- sample(1:100,
                  size = 1)
    return(age)
}