# NOT RUN {
#Simulate tumor growth
out <- simulateTumor()
#3d interactive visualization using rgl
visualizeTumor(out)
#or see regions with lots of mutants
visualizeTumor(out, plot.type = "heat")
#get a summary on the spatial dist. of mutants
sp <- spatialDistribution(out)
#simulate single cell sequencing
Scs <- randomSingleCells(tumor = out, ncells = 5, fnr = 0.1)
#simulate bulk sampling
Bulks <- randomBulkSamples(tumor = out, nsamples = 5)
# }
Run the code above in your browser using DataLab