#' # Adding the event layer to a twig object
twig_obj <- twig() + event(name = event_progress,
options = c(yes, none),
probs = c(pProgress, leftover),
transitions = c(Severe, stay))
event_layer <- event(name = "event_progress",
options = c("yes", "none"),
probs = c(pProgress, leftover),
transitions = c("Severe", "stay"))
Run the code above in your browser using DataLab