# NOT RUN {
# Lansing woods data - multitype points with 6 types
woods <- lansing
# }
# NOT RUN {
# compute 6 x 6 array of all cross-type K functions
a <- alltypes(woods, "K")
# extract first three marks only
b <- a[1:3,1:3]
# }
# NOT RUN {
plot(b)
# }
# NOT RUN {
# subset of array pertaining to hickories
h <- a[levels(marks(woods)) == "hickory", ]
# }
# NOT RUN {
plot(h)
# }
Run the code above in your browser using DataLab