Skip to contents

collapse nodal types

Usage

collapse_nodal_types(nodal_types, include_node_names = FALSE)

Arguments

nodal_types

A list of nodal types.

include_node_names

Logical, if TRUE returns names X0, X1; otherwise returns 0, 1

Value

A list containing nodes with nodal types in a vector form.

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