Transformation into a decomposable model

Transformation into a decomposable model

toDecomposable(...)

Arguments

model	model

Value

decomposable model

Examples

data(m)
getVariables(m)
#> [[1]]
#> [1] "T"
#> 
#> [[2]]
#> [1] "U"
#> 
#> [[3]]
#> [1] "B" "U"
#> 
#> [[4]]
#> [1] "R" "U"
#> 
#> [[5]]
#> [1] "R" "T" "W"
#> 
#> [[6]]
#> [1] "N" "R" "T"
#> 
#> [[7]]
#> [1] "D" "N"
#> 
mDecomposable <- toDecomposable(m)
getVariables(mDecomposable)
#> [[1]]
#> [1] "T" "R" "W"
#> 
#> [[2]]
#> [1] "T" "R" "N"
#> 
#> [[3]]
#> [1] "U" "R"
#> 
#> [[4]]
#> [1] "U" "B"
#> 
#> [[5]]
#> [1] "N" "D"
#>