# NOT RUN {
## generate a graphon of type No.8 with 3 clusters
W = gmodel.preset(3,id=8)
## create a probability matrix for 100 nodes
graphW = gmodel.block(W,n=100)
P = graphW$P
## draw 15 observations from a given probability matrix
A = gmodel.P(P,rep=15)
## cross validate SBA algorithm over different deltas
rescv = cv.SBA(A,vecdelta=c(0.1,0.5,0.9))
print(rescv$optdelta)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab