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