R/quickSplit.R

Defines functions .splitQuick

.splitQuick<-function(r) {
  rn3<-substr(rownames(r),1,3)
  split.matrix<-split.data.frame
  rr<-split(r,factor(rn3))
  rr<-unlist(lapply(rr,FUN=function(u) split(u,rownames(u))),recursive=FALSE)
  rr
}

Try the FIRMAGene package in your browser

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

FIRMAGene documentation built on May 2, 2019, 5:55 p.m.