# NOT RUN {
yn = c("yes", "no")
universe = list(flu=yn, temp=yn, headache=yn)
p.f = tab(~flu, levels=universe, values=c(.1, .9))
p.t_f = tab(~temp|flu, levels=universe, values=c(.9, .1, .01, .99))
p.h_t = tab(~headache|temp, levels=universe, values=c(.8, .1, .1, .9))
pl = compileCPT(list(p.f, p.t_f, p.h_t))
pl
bn = compile(grain(pl))
bn = propagate(bn)
bn
cp = cpt(bn)
cp1 = cp[[1]]
cp1
# }
Run the code above in your browser using DataLab