# NOT RUN {
par(mfrow=c(1,2))
regulonNames <- c("Dlx1", "Sox8")
cellCol <- plotTsne_rgb(scenicOptions, regulonNames, aucType="AUC", aucMaxContrast=0.6)
text(-5,-23, attr(cellCol,"red"), col="red", cex=.7)
text(-10,-18, attr(cellCol,"green"), col="green", cex=.7)
regulonNames <- list(red=c("Dlx1","Dlx5"),
green=c("Neurod1"),
blue=c("Sox8"))
cellCol <- plotTsne_rgb(scenicOptions, regulonNames, aucType="Binary")
# }
Run the code above in your browser using DataLab