# NOT RUN {
#require(Matrix)
 g1 <- erdos.renyi.game(10, .1)
 randperm <- c(1:3, 3+sample(7))
 g2 <- sample_correlated_gnp(g1, corr=1, p=g1$p, perm=randperm)
 A  <- as.matrix(get.adjacency(g1))
 B  <- as.matrix(get.adjacency(g2))
 P  <-match_vertices (A, B, m=3, start=diag(rep(1, nrow(A)-3)), 20)
 P
 #'
# }
Run the code above in your browser using DataLab