data(gmI)
identical
to the one generated by ## Used to generate "gmI"
set.seed(123)
p <- 7
n <- 10000
myDAG <- randomDAG(p, prob = 0.2) ## true DAG
datI <- rmvDAG(n, myDAG)
gmI <- list(x = datI, g = myDAG)data(gmI)
str(gmI, max=3)
pairs(gmI$x, gap = 0,
panel=function(...) smoothScatter(..., add=TRUE))
Run the code above in your browser using DataLab