# NOT RUN {
sch <- sch_new() %>%
sch_add_activities(
id = c(1L, 2L, 3L, 4L),
name = c("A", "B", "C", "D"),
duration = c(3L, 4L, 9L, 1L)
) %>%
sch_add_relations(
from = c(1L, 2L, 2L),
to = c(2L, 3L, 4L)
) %>%
sch_plan()
sch_reference(sch) # empty
sch %<>% sch_reference("This schedule is from...")
sch_reference(sch)
# }
Run the code above in your browser using DataLab