Last chance! 50% off unlimited learning
Sale ends in
treedisc(lst, pcf, ngrid = NULL, r = NULL, type = NULL, lowest = "dens")
leafsfirst
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