library(dplyr)
model <-
initialise_model(
backbone = backbone_bifurcating(),
simulation = simulation_default(
ssa_algorithm = ssa_etl(tau = .1),
experiment_params = bind_rows(
simulation_type_wild_type(num_simulations = 4),
simulation_type_knockdown(num_simulations = 4)
)
)
)
# \donttest{
data("example_model")
model <- example_model %>% generate_cells()
plot_simulations(model)
plot_gold_mappings(model)
plot_simulation_expression(model)
# }
Run the code above in your browser using DataLab