# rectangular
a <- owin(c(0,1),c(0,1))
b <- owin(c(-1,2),c(-1,2))
bmina <- complement.owin(a, frame=b)
# polygonal
data(demopat)
w <- demopat$window
outside <- complement.owin(w)
# mask
w <- as.mask(demopat$window)
outside <- complement.owin(w)
Run the code above in your browser using DataLab