perimeter(square(3))
  data(letterR)
  perimeter(letterR)
  if(spatstat.options("gpclib")) {
     if(interactive()) {
     print(perimeter(as.mask(letterR)))
    } else print(perimeter(as.mask(letterR, dimyx=32)))
  }Run the code above in your browser using DataLab