R/recalib.R

Defines functions recalib

Documented in recalib

recalib<-function(data, var, low, high){
  nmin <- low
  nmax <- high
  if(low > high){
    nmax <- low
    nmin <- high
  }
  cmin <- min(data[,var])
  cmax <- max(data[,var])
  
  data[,var] <- (nmax - nmin) / (cmax - cmin) * (data[,var] - cmin) + nmin
  return(data)
}

Try the gendata package in your browser

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

gendata documentation built on May 10, 2022, 1:05 a.m.