#- projection
data(treecloud_vox)
proj <- project(treecloud_vox,dim="xy")
nvox <- c(proj[,3])
npts <- c(proj[,4])
ratio <- c(proj[,5])
#- computing discretisation level
#- number of voxels by quantiles
lev_vox <- level(nvox,by="quantiles",levels=c(0.2))
#-number of points by percents
lev_pts <- level(npts,by="percents",levels=c(0.2,0.4,0.6,0.8))
#-ration npts/nvox by quantiles
lev_ratio <- level(ratio,by="quantiles",levels=c(0.25))
#- to see the levels
lev_vox
lev_pts
lev_ratio
Run the code above in your browser using DataLab