if (FALSE) {
## This data set was generated using the following code:
data(asia, package = 'bnlearn') # for the dataset
# Renaming columns of the dataset
colnames(asia) <- c("Asia", "Smoking", "Tuberculosis", "LungCancer",
"Bronchitis", "Either", "XRay", "Dyspnea")
# Defining the distribution list
dist.asia <- list(Asia = "binomial", Smoking = "binomial",
Tuberculosis = "binomial", LungCancer = "binomial",
Bronchitis = "binomial", Either = "binomial",
XRay = "binomial", Dyspnea = "binomial")
}
Run the code above in your browser using DataLab