if (FALSE) {
set.seed(42)
## test under H0
G1 <- G2 <- list()
for(i in 1:10){
G1[[i]] <- igraph::sample_gnp(50,0.5)
G2[[i]] <- igraph::sample_gnp(50,0.5)
}
k1 <- cerqueira.test(G1, G2)
k1
## test under H1
G1 <- G2 <- list()
for(i in 1:10){
G1[[i]] <- igraph::sample_gnp(50,0.5)
G2[[i]] <- igraph::sample_gnp(50,0.6)
}
k2 <- cerqueira.test(G1, G2)
k2
}
Run the code above in your browser using DataLab