data(toydata)
seu <- toydata$seu
pathway_list <- toydata$pathway_list
cts <- levels(seu)[1:2]
enrich.score <- CAESAR.enrich.score(seu, pathway_list)
dep.pvals <- CAESAR.CTDEP(seu, enrich.score, cts = cts)
print(dep.pvals)
Run the code above in your browser using DataLab