R/rescale.R

In HFpostdoc/sarModel: Sarracenia micro-ecosystem model

#' @title rescale 
#' 
#' Description rescale 
#' 
#' @param x x
#' @param rn rn
#' @export rescale
#' @return rescale
rescale <- function(x,ro=c(0,100),rn=c(0,1)){
    or <- max(ro) - min(ro)
    nr <- max(rn) - min(rn)
    (((x - min(ro)) * nr) / or) + min(rn)
}