knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "man/figures/README-", out.width = "100%" )
The goal of cell is to ...
This is a full simulation run from a single stem cell to the resulting gland.
library(cell) library(magrittr) end_gland <- gland_create(sample(c(0, 1), 10, TRUE), n_iter = 4) %>% growth_stage(30) %>% phase_3(300) end_gland <- gland_create(sample(c(0, 1), 10, TRUE), n_iter = 4) %>% growth_stage(30) %>% constant_time(290) %>% explosion()
end_gland
plot(end_gland)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.