data(toydata)
seu <- toydata$seu
seu <- ProFAST::pdistance(seu, reduction = "caesar")
sglist <- find.sig.genes(seu = seu)
markers <- marker.select(sglist, expr.prop.cutoff = 0.1, overlap.max = 1)
print(markers)
Run the code above in your browser using DataLab