# \donttest{
set.seed(1)
g <- list()
for(i in 1:2){
g[[i]] <- igraph::sample_gnp(n=10, p=0.5)
}
for(i in 3:4){
g[[i]] <- igraph::sample_gnp(n=10, p=1)
}
res <- graph.cem(g, model='ER', k=2, max_iter=1,eps=0.1)
res
# }
Run the code above in your browser using DataLab