# \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
# (native subject is factor)
uniques(Blackmore)
#
Blackmore <- transform(Blackmore, subject = as.integer(subject))
# subject now as integer
Blackmore |> str()
uniques(Blackmore)
rm(Blackmore)
Run the code above in your browser using DataLab