simdag <- simulateDag(node.name = c("a", "b", "c", "d"),
edge.density = 0.5,
data.dists = list(a = "gaussian",
b = "binomial",
c = "poisson",
d = "multinomial"))
## Example using Ozon entries:
dist <- list(Ozone="gaussian", Solar.R="gaussian", Wind="gaussian",
Temp="gaussian", Month="gaussian", Day="gaussian")
out <- simulateDag(node.name = names(dist), data.dists = dist, edge.density = 0.8)
plot(out)
Run the code above in your browser using DataLab