set.seed(1)
G1 <- G2 <- list()
p <- MASS::mvrnorm(50, mu=c(0,0), Sigma=matrix(c(1, 0.5, 0.5, 1), 2, 2))
ma <- max(p)
mi <- min(p)
p[,1] <- (p[,1] - mi)/(ma - mi)
p[,2] <- (p[,2] - mi)/(ma - mi)
for (i in 1:50) {
G1[[i]] <- igraph::sample_gnp(50, p[i,1])
G2[[i]] <- igraph::sample_gnp(50, p[i,2])
}
graph.cor.test(G1, G2)
Run the code above in your browser using DataLab