# NOT RUN {
data(toy.IO)
class(toy.IO)
key1 <- key.sector(toy.IO)
key1$Narnia
# A more detailed example
# Using critical value of 2 because this is randomly generated data and better
# illustrates functionality
key2 <- key.sector(toy.IO, intra.inter = TRUE, type = c("direct"), crit = 2)
key2
key3 <- key.sector(toy.IO, regions = c(1:2), sectors = c(1:3,5))
key3
# }
Run the code above in your browser using DataLab