R/rowScale.r

In ldstatsHD: Linear Dependence Statistics for High-Dimensional Data

Defines functions rowVars rowScale

Documented in rowScale rowVars

rowVars <- function(mat)  apply(mat,1,var)

rowScale<-function(mat){
  mat.x<-mat[rowVars(mat)>0,]
  new.mat<-t(scale(t(mat.x)))
  return(new.mat)
}

Try the ldstatsHD package in your browser