dendat<-sim.data(n=100,type="mulmod")
pcf<-pcf.kern(dendat,h=1,N=c(32,32))
lst<-leafsfirst(pcf) # level set tree
td<-treedisc(lst,pcf,ngrid=30)
plotvolu(td)
r<-c(0.01,0.03,0.04)
td<-treedisc(lst,pcf,r=r)
plotvolu(td)
Run the code above in your browser using DataLab