R/acore.R

Defines functions acore

Documented in acore

acore <-  function(eset,cl,min.acore=0.5){

  atmp <- list(NULL)
  
  for (i in 1:dim(cl[[1]])[[1]]){
    index <- (cl[[3]]==i & (cl[[4]][,i] > min.acore)) # selection of genes
   atmp[[i]] <- data.frame(NAME=dimnames(exprs(eset))[[1]][index],MEM.SHIP=cl[[4]][index,i])
  }

atmp
      }

Try the Mfuzz package in your browser

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

Mfuzz documentation built on Nov. 17, 2017, 10:06 a.m.