R/CornerToMarker.R

Defines functions CornerToMarker

## marker selection by using sisal
CornerToMarker <- function(distances,topN){

     markerList <- apply(distances, 2, function(xx) {
          pure <- rownames(distances)[order(xx)[1:topN]]
          return(pure)
     })
     markerList <-  split(markerList, rep(1:ncol(markerList), each = nrow(markerList)))

     return(markerList)
}
ziyili20/TOAST documentation built on Aug. 28, 2022, 11:28 a.m.