example("example_chest_cpt")
data(chestSim500)
chest.bn <- grain(compileCPT(chest_cpt))
nd <- chestSim500[1:4]
predict(chest.bn, response="bronc", newdata=nd)
predict(chest.bn, response="bronc", newdata=nd, type="distribution")
Run the code above in your browser using DataLab