# \dontshow{
Blackmore <- transform(Blackmore, timepoint = as.Date("2000-01-01") + round(age * 365.25),
result = cut(exercise, breaks = seq(0, 30, 2), labels = paste0("<=", seq(0, 30, 2)[-1]),
include.lowest = TRUE, ordered_result = TRUE))
# }
## Continuing example from `add_transitions()`
# subject, timepoint and result arguments all defaults and required types
Blackmore |> str()
# Previous test results as ordered factor
get_prev_result(Blackmore)
# Previous test result as column of data frame
(Blackmore <- add_prev_result(Blackmore)) |> head(32)
rm(Blackmore)
Run the code above in your browser using DataLab