> a <- c("A_1", "A_2", "A_3", "A_4")
> bs <- c("W")
> nodes <- list(c("L_1"), c("L_2"), c("L_3"), c("L_4"))
> create_node_list(a, 4, nodes, baseline = NULL, k = NULL)
$trt
$trt[[1]]
[1] "L_1" "A_1"

$trt[[2]]
[1] "L_1" "L_2" "A_1" "A_2"

$trt[[3]]
[1] "L_1" "L_2" "A_1" "L_3" "A_2" "A_3"

$trt[[4]]
[1] "L_1" "L_2" "A_1" "L_3" "A_2" "L_4" "A_3" "A_4"


$outcome
$outcome[[1]]
[1] "L_1" "A_1"

$outcome[[2]]
[1] "L_1" "A_1" "L_2" "A_2"

$outcome[[3]]
[1] "L_1" "A_1" "L_2" "A_2" "L_3" "A_3"

$outcome[[4]]
[1] "L_1" "A_1" "L_2" "A_2" "L_3" "A_3" "L_4" "A_4"



> create_node_list(a, 4, nodes, baseline = NULL, k = Inf)
$trt
$trt[[1]]
[1] "L_1" "A_1"

$trt[[2]]
[1] "L_1" "L_2" "A_1" "A_2"

$trt[[3]]
[1] "L_1" "L_2" "A_1" "L_3" "A_2" "A_3"

$trt[[4]]
[1] "L_1" "L_2" "A_1" "L_3" "A_2" "L_4" "A_3" "A_4"


$outcome
$outcome[[1]]
[1] "L_1" "A_1"

$outcome[[2]]
[1] "L_1" "A_1" "L_2" "A_2"

$outcome[[3]]
[1] "L_1" "A_1" "L_2" "A_2" "L_3" "A_3"

$outcome[[4]]
[1] "L_1" "A_1" "L_2" "A_2" "L_3" "A_3" "L_4" "A_4"



> create_node_list(a, 4, nodes, baseline = NULL, k = 0)
$trt
$trt[[1]]
[1] "L_1" "A_1"

$trt[[2]]
[1] "L_2" "A_1" "A_2"

$trt[[3]]
[1] "L_3" "A_2" "A_3"

$trt[[4]]
[1] "L_4" "A_3" "A_4"


$outcome
$outcome[[1]]
[1] "L_1" "A_1"

$outcome[[2]]
[1] "L_2" "A_2"

$outcome[[3]]
[1] "L_3" "A_3"

$outcome[[4]]
[1] "L_4" "A_4"



> create_node_list(a, 4, nodes, baseline = NULL, k = 1)
$trt
$trt[[1]]
[1] "L_1" "A_1"

$trt[[2]]
[1] "L_1" "L_2" "A_1" "A_2"

$trt[[3]]
[1] "L_2" "A_1" "L_3" "A_2" "A_3"

$trt[[4]]
[1] "L_3" "A_2" "L_4" "A_3" "A_4"


$outcome
$outcome[[1]]
[1] "L_1" "A_1"

$outcome[[2]]
[1] "L_1" "A_1" "L_2" "A_2"

$outcome[[3]]
[1] "L_2" "A_2" "L_3" "A_3"

$outcome[[4]]
[1] "L_3" "A_3" "L_4" "A_4"



> create_node_list(a, 4, nodes, baseline = NULL, k = 2)
$trt
$trt[[1]]
[1] "L_1" "A_1"

$trt[[2]]
[1] "L_1" "L_2" "A_1" "A_2"

$trt[[3]]
[1] "L_1" "L_2" "A_1" "L_3" "A_2" "A_3"

$trt[[4]]
[1] "L_2" "A_1" "L_3" "A_2" "L_4" "A_3" "A_4"


$outcome
$outcome[[1]]
[1] "L_1" "A_1"

$outcome[[2]]
[1] "L_1" "A_1" "L_2" "A_2"

$outcome[[3]]
[1] "L_1" "A_1" "L_2" "A_2" "L_3" "A_3"

$outcome[[4]]
[1] "L_2" "A_2" "L_3" "A_3" "L_4" "A_4"



> create_node_list(a, 4, nodes, bs, k = 0)
$trt
$trt[[1]]
[1] "W"   "L_1" "A_1"

$trt[[2]]
[1] "W"   "L_2" "A_1" "A_2"

$trt[[3]]
[1] "W"   "L_3" "A_2" "A_3"

$trt[[4]]
[1] "W"   "L_4" "A_3" "A_4"


$outcome
$outcome[[1]]
[1] "W"   "L_1" "A_1"

$outcome[[2]]
[1] "W"   "L_2" "A_2"

$outcome[[3]]
[1] "W"   "L_3" "A_3"

$outcome[[4]]
[1] "W"   "L_4" "A_4"



> create_node_list(a, 4, nodes, bs, k = Inf)
$trt
$trt[[1]]
[1] "W"   "L_1" "A_1"

$trt[[2]]
[1] "W"   "L_1" "L_2" "A_1" "A_2"

$trt[[3]]
[1] "W"   "L_1" "L_2" "A_1" "L_3" "A_2" "A_3"

$trt[[4]]
[1] "W"   "L_1" "L_2" "A_1" "L_3" "A_2" "L_4" "A_3" "A_4"


$outcome
$outcome[[1]]
[1] "W"   "L_1" "A_1"

$outcome[[2]]
[1] "W"   "L_1" "A_1" "L_2" "A_2"

$outcome[[3]]
[1] "W"   "L_1" "A_1" "L_2" "A_2" "L_3" "A_3"

$outcome[[4]]
[1] "W"   "L_1" "A_1" "L_2" "A_2" "L_3" "A_3" "L_4" "A_4"



> create_node_list(a, 4, NULL, bs, k = Inf)
$trt
$trt[[1]]
[1] "W"   "A_1"

$trt[[2]]
[1] "W"   "A_1" "A_2"

$trt[[3]]
[1] "W"   "A_1" "A_2" "A_3"

$trt[[4]]
[1] "W"   "A_1" "A_2" "A_3" "A_4"


$outcome
$outcome[[1]]
[1] "W"   "A_1"

$outcome[[2]]
[1] "W"   "A_1" "A_2"

$outcome[[3]]
[1] "W"   "A_1" "A_2" "A_3"

$outcome[[4]]
[1] "W"   "A_1" "A_2" "A_3" "A_4"



