summary(cells) # plain vanilla point pattern
# multitype point pattern
<testonly>lansing <- lansing[seq(1, lansing$n, length=40)]</testonly>
summary(lansing) # tabulates frequencies of each mark
# numeric marks
<testonly>longleaf <- longleaf[seq(1, longleaf$n, length=40)]</testonly>
summary(longleaf) # prints summary.default(x$marks)
# weird polygonal window
summary(demopat) # describes it
Run the code above in your browser using DataLab