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, 30,
"s1", "s2", "+M2,+M3", FALSE, FALSE, 80
)
)
Run the code above in your browser using DataLab