# NOT RUN {
library(igraph)
mink<-7;
g_A <- sample_grg(200, 0.15, torus=FALSE, coords = FALSE)
A <- get.adjacency(g_A)
nodeid <- 1;
#Calculate Jaccard coefficient of all nodes w.r.t. nodeid 1 given the adjacency matrix A
output <- calculate_jaccard(nodeid,A,mink)
# }
Run the code above in your browser using DataLab