# NOT RUN {
EX1 <- pcorSimulatorJoint(nobs = 50, nclusters = 2, nnodesxcluster = c(30, 40),
pattern = "pow", diffType = "cluster", dataDepend = "ind",
pdiff = 0.2, diagCCtype = "dicot", diagNZ.strength = .5)
plot(EX1, edgesThickness = TRUE)
EX2 <- pcorSimulatorJoint(nobs = 50, nclusters = 3, nnodesxcluster = c(30, 40,60),
pattern = "pow", diffType = "cluster", dataDepend = "diag",
pdiff = 0.4, diagCCtype = "beta")
plot(EX2)
# }
Run the code above in your browser using DataLab