Using the R package bnlearn, generate the Bayesian network for the database and compute the probability that a person will have blood pressure greater than 140, given that they have strenuous mental work and are a smoker. Justify (interpret) the relationship between the Bayesian network graph and the calculated probability.

Partial code:

library(bnlearn) date(coronary) bn_df <- data.frame(coronary) res <- hc(bn_df) plot(res) fittedbn <- bn.fit(res, data = bn_df) . . .