set.seed(123)
graphs <- sample_correlated_gnp_pair(20, .9, .3)
A <- graphs$graph1
B <- graphs$graph2
match <- gm(A, B, 1:4, method = "percolation")
summary(match, A, B)
summary(match, A, B, true_label = 1:20) # also output the number of correct matches
Run the code above in your browser using DataLab