simulating data with bayesian network in R using own specification...