# NOT RUN {
#defining distribution
dist <- list(a="gaussian",b="gaussian",c="gaussian",d="gaussian", e="binomial", 
               f="binomial")
    
    #define parameter matrix 
    dag <- matrix(data = c(0,1,1,0,1,0,
    0,0,1,1,0,1, 
    0,0,0,0,0,0, 
    0,0,0,0,0,0, 
    0,0,0,0,0,1, 
    0,0,0,0,0,0),nrow = 6L,ncol = 6L,byrow = TRUE)
    
    colnames(dag) <- rownames(dag) <- names(dist)
    
    mb(dag.m = dag,node = "b",data.dists = dist)
    mb(dag.m = dag,node = "e",data.dists = dist)
    mb(dag.m = dag,node = c("b","e"),data.dists = dist)
# }
Run the code above in your browser using DataLab