R/normlize_scalling.default.R

normlize_scalling.default <- function (A){
  B=as.matrix(A);
  B[B==0]=NaN;
  b=apply(B,2,median,na.rm=TRUE);
  return(as(t(t(as.matrix(A))/b*mean(b)),"sparseMatrix"));
}
Durenlab/scREG documentation built on Dec. 17, 2021, 5:31 p.m.