# NOT RUN {
  data(lansing)
  hicks <- lansing[lansing$marks == "hickory", ]
  
# }
# NOT RUN {
  plot(hicks)  # still a marked point pattern, but only 1 value of marks
  plot(unmark(hicks)) # unmarked
  
# }
Run the code above in your browser using DataLab