set.seed(100)
dt <- BlockModel.Gen(10,50,K=2,beta=0.2)
## oracle order
oracle.index <- sort(dt$g,index.return=TRUE)$ix
A <- dt$A[oracle.index,oracle.index]
oracle.est <- smooth.oracle(seq(0,1,length.out=50),A)
Run the code above in your browser using DataLab