R/tfidf_trans.default.R

Defines functions tfidf_trans.default

tfidf_trans.default <-function(O){
  O=as.matrix((O>0));
  tf1=t(t(O)/log(1+colSums(O)));
  idf=log(1+dim(O)[2]/(1+rowSums(O>0)));
  O1=tf1*idf;
  O1[is.na(O1)] <- 0;
  return(as(O1,"sparseMatrix"))
}
Durenlab/scREG documentation built on Dec. 17, 2021, 5:31 p.m.