# NOT RUN {
library(tibble)
backbone <- backbone(
module_info = tribble(
~module_id, ~basal, ~burn, ~independence,
"M1", 1, TRUE, 1,
"M2", 0, FALSE, 1,
"M3", 0, FALSE, 1
),
module_network = tribble(
~from, ~to, ~effect, ~strength, ~hill,
"M1", "M2", 1L, 1, 2,
"M2", "M3", 1L, 1, 2
),
expression_patterns = tribble(
~from, ~to, ~module_progression, ~start, ~burn, ~time,
"s0", "s1", "+M1", TRUE, TRUE, 15,
"s1", "s2", "+M2,+M3", FALSE, FALSE, 30
)
)
# }
# NOT RUN {
model <-
initialise_model(backbone = backbone) %>%
generate_tf_network() %>%
generate_feature_network() %>%
generate_kinetics() %>%
generate_gold_standard() %>%
generate_cells() %>%
generate_experiment()
dataset <- wrap_dataset(model)
# }
Run the code above in your browser using DataLab