if (FALSE) {
a <- c("A_1", "A_2", "A_3", "A_4")
bs <- c("W_1", "W_2")
time_vary <- list(c("L_1"), c("L_2"), c("L_3"), c("L_4"))
# assuming no Markov property
create_node_list(a, 4, time_vary, bs, k = Inf)
}
Run the code above in your browser using DataLab