# 3D box with side [0,2]
w <- boxx(c(0,2), c(0,2), c(0,2))
# Random points in box with side [-1,3]
x <- runif(30, min=-1, max=3)
y <- runif(30, min=-1, max=3)
z <- runif(30, min=-1, max=3)
# Points falling in smaller box
ok <- inside.boxx(x, y, z, w=w)
# Same using a point pattern as argument:
X <- ppx(data = cbind(x, y, z), domain = boxx(c(0,3), c(0,3), c(0,3)))
ok2 <- inside.boxx(X, w=w)
# Same using the coordinates given as data.frame/matrix/hyperframe
coords_mat <- cbind(x,y,z)
ok_mat <- inside.boxx(coords_mat, w=w)
coords_df <- data.frame(x,y,z)
ok_df <- inside.boxx(coords_mat, w=w)
coords_hyper <- hyperframe(x,y,z)
ok_hyper <- inside.boxx(coords_mat, w=w)
Run the code above in your browser using DataLab