R/get_covariate_scaling_factor.R

In lorecatta/DENVclimate:

get_covariate_scaling_factor <- function(var, parms){

  ppyear <- parms$ppyear

  year.f <- parms$year.f

  year.i <- parms$year.i

  scale <- 1

  if(grepl("Re.", var) | grepl("Im.", var)){

    scale <- ppyear * (year.f - year.i + 1) / 2

  }

  if(grepl("const_term$", var)){

    scale <- ppyear * (year.f - year.i + 1)

  }

  scale

}