data(toydata)
seu <- toydata$seu
seu <- ProFAST::pdistance(seu, reduction = "caesar")
sglist <- find.sig.genes(seu = seu)
top2sgs <- Intsg(list(sglist), ntop = 2)
print(top2sgs)
top2intsgs <- Intsg(list(sglist, sglist), ntop = 2)
Run the code above in your browser using DataLab