# NOT RUN {
  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 <- as.rectangle(w)
  # returns a 10 x 10 rectangle
  data(lansing)
  as.rectangle(lansing)
  data(copper)
  as.rectangle(copper$SouthLines)
# }
Run the code above in your browser using DataLab