# NOT RUN {
EX2 <- pcorSimulatorJoint(nobs =50, nclusters = 3, nnodesxcluster = c(30, 30,30),
pattern = "pow", diffType = "cluster", dataDepend = "diag",
diagCCtype = "dicot", diagNZ.strength = 0.6)
## not run
#wfgl1 <- wfgl(EX2$D1, EX2$D2, lambda1 = 0.01, lambda2 = 0.1, paired = TRUE,
# automLambdas = TRUE, sigmaEstimate = "CRmad",
# pairedEst = "Reg-based-sim", maxiter = 30)
#plot(wfgl1)
#plot(wfgl1, minn = 1, edgesThickness = TRUE)
# }
Run the code above in your browser using DataLab