R/iriweek_to_date.R

In uogss/CLV: Provide CLV for customers

#' Transforms the iri week to actual date
#' @export
#' @param iri_week numeric variable
iriweek_to_date <- function(iri_week) {
  # Transform iri_week to date
  d <- iri_week*7+29100
  ndate <- as.Date(d, origin = "1899-12-30")
  return(ndate)
}