mod <- sevt(list(A = c("a", "aa"),
B = c("b", "bb", "bbb"),
C = c("c", "cc")), full = TRUE)
stages(mod)["C", A = "a", B = c("b", "bb")] <- "stage1"
stages(mod)["C", A = "aa"] <- "stage2"
stages(mod)["C", A = "a", B = "bbb"] <- "stage2"
ci_matrices(mod, "C")
Run the code above in your browser using DataLab