w <- owin(c(0,10),c(0,10), poly=list(x=c(1,2,3,2,1), y=c(2,3,4,6,7)))
r <- bounding.box(w)
# returns rectangle [1,3] x [2,7]
w2 <- unit.square()
r <- bounding.box(w, w2)
# returns rectangle [0,3] x [0,7]
Run the code above in your browser using DataLab