R/DefineScale.R

In houzeyu2683/PyKit:

##
##  Define scale
DefineScale <- function(data){
  require(pbapply)
  eleMean <- apply(data, 2, mean)
  eleSd   <- apply(data, 2, sd)
  function(data){
    eleIndex   <- which(eleSd!=0)
    dataReturn <- pbsapply(eleIndex, function(i) (data[,i] - eleMean[i]) / eleSd[i])
    return(dataReturn)
  }
}