# NOT RUN {
#### data
EX2 <- pcorSimulatorJoint(nobs = 50, nclusters = 3, nnodesxcluster = c(40,40,40),
pattern = "pow", diffType = "cluster", dataDepend = "diag",
pdiff=0.5)
#### best threshold
useq <- seq(0,qnorm(1-0.01/2),length.out=150)
thesholdSelection(EX2$D1,EX2$D2, useq)
# }
Run the code above in your browser using DataLab