# NOT RUN {
library(equSA)
data(SR0)
data(TR0)
data_all <- vector("list",2)
data_all[[1]] <- SR0
data_all[[2]] <- TR0
A <- JGGM(data_all,ALPHA1=0.05,ALPHA2=0.01)$Array
plotJGraph(A)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab