example("grain")
## Uncompiled and unpropageted network:
bn0 <- grain(chest_cpt, compile=FALSE)
bn0
## Compiled but unpropageted network:
bn1 <- compile(bn0, propagate=FALSE)
## Compiled and propagated network
bn2 <- propagate(bn1)
bn2
## Default is that networks are compiled but not propagated at creation time:
bn3 <- grain(chest_cpt)
bn3
Run the code above in your browser using DataLab