powered by
as.box3(...)
"box3"
box3
...
c(xrange[1],xrange[2],yrange[1],yrange[2],zrange[1],zrange[2])
"pp3"
pp3
X <- c(0,10,0,10,0,5) as.box3(X) X <- pp3(runif(42),runif(42),runif(42), box3(c(0,1))) as.box3(X)
Run the code above in your browser using DataLab