# 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