R/rowScale.r

Defines functions rowScale rowVars

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

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

ldstatsHD documentation built on Aug. 14, 2017, 5:06 p.m.