# NOT RUN {
data(dsCont)
m1 <- minForest(dsCont,homog=TRUE,forbEdges=NULL,stat="LR")
plot(m1,numIter=1000)
v <- c(1,11,21,19,30,25,22,24,34,9,20,29)
subM1 <- SubGraph(model=m1,v=v)
plot(subM1,numIter=1500)
# }
Run the code above in your browser using DataLab