# NOT RUN {
  summary(owin())  # the unit square
  data(demopat)
  W <- Window(demopat)  # weird polygonal window
  summary(W)           # describes it
  summary(as.mask(W))  # demonstrates current pixel resolution
# }
Run the code above in your browser using DataLab