# NOT RUN {
sch <- sch_new() %>%
sch_title("Project 3: Old Carriage House Renovation") %>%
sch_reference(
"VANHOUCKE, Mario. Integrated project management and control:
first comes the theory, then the practice. Gent: Springer, 2014, p. 11") %>%
sch_add_activity( 1L, "a1" , 2L) %>%
sch_add_activity( 2L, "a2" , 2L) %>%
sch_add_activity( 3L, "a3" , 4L) %>%
sch_add_activity( 4L, "a4" , 3L) %>%
sch_add_activity( 5L, "a5" , 4L) %>%
sch_add_activity( 6L, "a6" , 1L) %>%
sch_add_activity( 7L, "a7" , 1L) %>%
sch_add_activity( 8L, "a8" , 1L) %>%
sch_add_activity( 9L, "a9" , 1L) %>%
sch_add_activity(10L, "a10", 1L) %>%
sch_add_activity(11L, "a11", 3L) %>%
sch_add_activity(12L, "a12", 2L) %>%
sch_add_activity(13L, "a13", 1L) %>%
sch_add_activity(14L, "a14", 1L) %>%
sch_add_activity(15L, "a15", 2L) %>%
sch_add_activity(16L, "a16", 1L) %>%
sch_add_activity(17L, "a17", 1L) %>%
sch_add_relation(14L, 15L) %>%
sch_add_relation( 9L, 10L) %>%
sch_add_relation( 2L, 3L) %>%
sch_add_relation( 8L, 10L) %>%
sch_add_relation(10L, 13L) %>%
sch_add_relation( 5L, 6L) %>%
sch_add_relation(11L, 12L) %>%
sch_add_relation(15L, 16L) %>%
sch_add_relation( 6L, 8L) %>%
sch_add_relation( 3L, 4L) %>%
sch_add_relation(16L, 17L) %>%
sch_add_relation( 6L, 7L) %>%
sch_add_relation(10L, 11L) %>%
sch_add_relation(13L, 14L) %>%
sch_add_relation( 4L, 5L) %>%
sch_add_relation( 7L, 10L) %>%
sch_add_relation(12L, 15L) %>%
sch_add_relation( 6L, 9L) %>%
sch_add_relation( 1L, 2L) %>%
sch_plan()
# In "topological" order.
sch_critical_relations(sch)
# In "insert" order.
sch_critical_relations(sch, order = "insert")
# }
Run the code above in your browser using DataLab