R/rowscale.R

rowscale <-
function(X){
 n=dim(X)[2]
 X=X-rowMeans(X)
 X=X/sqrt(rowSums(X^2)/(n-1))
 return(X)}

Try the PCFAM package in your browser

Any scripts or data that you put into this service are public.

PCFAM documentation built on May 2, 2019, 2:37 a.m.