# NOT RUN {
data(jaguar)
s <- summary(jaguar)
# }
# NOT RUN {
## works if the device is large enough:
plot(s, layout = 30, las = 2)
layout(1)
# }
# NOT RUN {
## compute the relative frequencies:
rapply(s, function(x) x/sum(x), how = "replace")
# }
Run the code above in your browser using DataLab