# 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