# NOT RUN {
# }
# NOT RUN {
library(equSA)
data1 <- DAGsim(n=200, p=100, type="AR(2)")$data
data2 <- DAGsim(n=200, p=100, type="AR(2)")$data
data_all <- vector("list",2)
data_all[[1]] <- data1
data_all[[2]] <- data2
JMGM(data_all,ALPHA1=0.1,ALPHA2=0.05,parallel=TRUE,nCPUs=2)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab