R/mysisal.R

Defines functions mysisal

mysisal <- function(Y, K, topN){

     Y.norm = simplenormalize(Y)
     sisalres = sisal(t(Y.norm), p = K, iters = 100)
     corner = sisalres$endpoints
     distances = sisalres$distances
     estProp = CornerToEstProp(corner)
     selMarker = CornerToMarker(distances, topN)

     return(list(estProp = estProp,selMarker = selMarker))
}
ziyili20/TOAST documentation built on Aug. 28, 2022, 11:28 a.m.