# NOT RUN {
###############################################################
# Finding the structure of the graph from the adjacency matrix
###############################################################
# 1st example: non-perturbed graph
Data <- CreateDataSet(k=3, n=20, p=list(p_inside=0,p_outside=0))
Structure <- FindStructure(Data$A_hat)
Structure$groups # the graph is not perturbed, there are 3 connected components
# 2nd example: highly-perturbed graph
Data <- CreateDataSet(k=3, n=20, p=list(p_inside=0.5,p_outside=0.5))
Structure <- FindStructure(Data$A_hat)
Structure$groups # the graph is higlhy perturbed, there are less than 3 connected components
# }
Run the code above in your browser using DataLab