Merge latent variables within districts — dhvm_merge

Results in a linear dag that has only has 1 latent variable per district

Usage

dhvm_merge_latents(dhvm)

Arguments

dhvm: A object representing a dag of as returned by [dhvm()]

Value

A `dhvm` object representing the modified dag

Examples

duargr <- dhvm(caugi(A %-->% B+E, B %-->% C, C %-->% D, D %-->% F, E %-->% C,
U1 %-->% B+D, U2 %-->% A+C+E, U3 %-->% D+F))
dhvm_merge_latents(duargr)
#> A Discrete Hidden Variables Model (dhvm)
#> * graph data: 
#> <caugi object; 8 nodes, 12 edges; simple: TRUE; built: TRUE; ptr=0x5c72178cf0f0>
#>   graph_class: DAG
#>   nodes: A, B, C, D, E, U1, U2, F
#>   edges: A-->B, A-->E, B-->C, C-->D, D-->F, E-->C, U1-->B, U1-->D, U1-->F
#>          U2-->A, U2-->C, U2-->E
#> * node data:  
#>      name latent nvals
#>    <char> <lgcl> <int>
#> 1:      A  FALSE     2
#> 2:      B  FALSE     2
#> 3:      C  FALSE     2
#> 4:      D  FALSE     2
#> 5:      E  FALSE     2
#> 6:     U1   TRUE     2
#> 7:     U2   TRUE     2
#> 8:      F  FALSE     2