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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.