R/do_paretoscaling_norm.R

In kuppal2/xmsPANDA: R Package for Biomarker Discovery, Network, and Data Exploratory Analysis

do_paretoscaling_norm <-
function(data_m)
{
  #pareto scaling
  data_m <- apply(data_m, 1, function(x){(x - mean(x))/sqrt(sd(x))})
  
  data_m<-data_m/mean(abs(data_m))
  data_m<-data_m+1000
  data_m<-t(data_m)
  
  return(data_m)
  
}