R/svds.R

svds <-
function(data){
  mm=apply(data,1,mean)
  tmp=sweep(data,1,mm, "-")
  svd(tmp)
}
mchikina/CellCODE documentation built on May 23, 2019, 1:13 p.m.