R/convert_age.R

In glaggle/cadR:

#' @title Convert character age into integer of days.
#'
#' @description \code{convert_age} Convert character age into integer of days.
#'
#' @details Function to clean training and test data.
#'
#' @param \code{x} Input vector containing for e.g. "1 day", "2 weeks", "3 months", "10 years".
#'
#' @return Cleaned vector or integers of age in days.
#'
#' @examples
#'

convert_age <- function(x){

  split <- strsplit(as.character(x), split = " ")

  period <- split[[1]][2]
  if (grepl("year", period)){
    per_mod <- 356
  } else if (grepl("month", period)){
    per_mod <- 30
  } else if (grepl("week", period)){
    per_mod <- 7
  } else
    per_mod <- 1

  age <- as.numeric(split[[1]][1]) * per_mod

  return(age)
}