# Sampling by a unit cubic point lattice
vol.mse(FigLat(3,VecLat(diag(3)),PointPattern(rep(0,3))))
# Sampling by serial sections
vol.mse(FigLat(3,VecLat(c(0,0,1)),PointPattern(rep(0,3)),lmat=rbind(diag(2),rep(0,2))))
Run the code above in your browser using DataLab