set.seed(100)
dt <- BlockModel.Gen(60,1000,K=3,beta=0.2,rho=0.9,simple=FALSE,power=TRUE)
### this is not an interesting case -- only for demonstration of the usage.
### The network has no periphery nodes, all nodes are in the core.
A <- dt$A
kc <- k.core(A,K=3)
dim(kc)
Run the code above in your browser using DataLab