# NOT RUN {
model <-
initialise_model(
backbone = backbone_bifurcating(),
tf_network = tf_network_default(min_tfs_per_module = 1L)
) %>%
generate_tf_network()
plot_feature_network(model)
# }
# NOT RUN {
model <- model %>%
generate_feature_network() %>%
generate_kinetics() %>%
generate_gold_standard() %>%
generate_cells() %>%
generate_experiment()
dataset <- wrap_dataset(model)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab