data(colonTP)
# create a TPidm object with s = 0, t = "last" (default),
# CI = FALSE (default) and method = "NM" (default):
tp_s0_nm <- TPidm(colonTP, s = 0)
# plot all possible transitions without CI:
plot(tp_s0_nm)
# or
# create a TPidm object with s = 0, t = "last" (default),
# CI = TRUE and method = "AJ":
tp_s0_aj_ci <- TPidm(colonTP, s = 0, CI = TRUE, method = "AJ")
# plot transitions "1 2" and "1 3" with CI:
plot(tp_s0_aj_ci, chosen.tr = c("1 2", "1 3"))
Run the code above in your browser using DataLab