R/xtfrm.dept.r

Defines functions xtfrm.dept

#' @export
xtfrm.dept <- function(x) {
  x <- ifelse( x == "2A", "20", ifelse(x == "2B", "20.5", x) )
  as.numeric(x)
}
HervePerdry/covid19.SPF documentation built on Jan. 30, 2022, 7:22 p.m.