R/varReverse.R

varReverse <- function(Var, LowAnchor, HighAnchor)
{
  if (min(Var, na.rm = TRUE) < LowAnchor) stop('Observed values for variable < LowAnchor')
  if (max(Var, na.rm = TRUE) > HighAnchor) stop('Observed values for variable > HighAnchor')
  
  NewVar = (LowAnchor + HighAnchor) - Var
  
  return(NewVar)
}

Try the lmSupport package in your browser

Any scripts or data that you put into this service are public.

lmSupport documentation built on May 2, 2019, 2:14 p.m.