README.md

cell

The goal of cell is to …

Installation

Example

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
#> Cell gland object
#> 
#> Number of cell: 8192
#> Number of cell states: 10
#> Number of unique mutations: 15
#> 
#> The first 5 unique cells are:
#> 1: 0 1 0 0 1 0 0 0 1 0 
#> 2: 0 0 0 1 0 1 0 1 0 0 
#> 3: 0 0 0 1 0 0 0 0 0 0 
#> 4: 0 1 1 0 0 0 1 0 1 0 
#> 5: 0 0 0 1 1 0 0 0 1 0
plot(end_gland)



EmilHvitfeldt/cell documentation built on May 5, 2019, 7:03 p.m.