# NOT RUN {
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)
)
)
)
# }
# NOT RUN {
model <- model %>%
generate_tf_network() %>%
generate_feature_network() %>%
generate_kinetics() %>%
generate_gold_standard() %>%
generate_cells()
plot_simulations(model)
plot_gold_mappings(model)
plot_simulation_expression(model)
model <- model %>%
generate_experiment()
dataset <- wrap_dataset(model)
# }
Run the code above in your browser using DataLab