R/recalib.R

In gendata: Generate and Modify Synthetic Datasets

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