data.df <- ex1.dag.data[,c(1:7,10)]
mydists <- list(b1 = "binomial", p1 = "poisson", g1 = "gaussian",
b2 = "binomial", p2 = "poisson",
b3 = "binomial", g2 = "gaussian", g3 = "gaussian")
mycache <- buildScoreCache(data.df = data.df,
data.dists = mydists)
mycache <- buildScoreCache(data.df = data.df,
method='mle', data.dists = mydists)