collapse nodal types
Arguments
- nodal_types
A list of nodal types.
- include_node_names
Logical, if TRUE returns names X0, X1; otherwise returns 0, 1
Examples
model <- make_model('X -> K -> Y')
(nodal_types <- grab(model, "nodal_types", collapse = FALSE))
#> Nodal types:
#> $X
#> c(0, 1)
#>
#> NULL
#>
#> $K
#> c(0, 1, 0, 1) c(0, 0, 1, 1)
#>
#> NULL
#>
#> $Y
#> c(0, 1, 0, 1) c(0, 0, 1, 1)
#>
#> NULL
#>
#>
#> Number of types by node
#> X K Y
#> 1 2 2
CausalQueries:::collapse_nodal_types(nodal_types )
#> Nodal types:
#> $X
#> 0 1
#>
#> NULL
#>
#> $K
#> 00 10 01 11
#>
#> NULL
#>
#> $Y
#> 00 10 01 11
#>
#> NULL
#>
#>
#> Number of types by node
#> X K Y
#> 2 4 4