# 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")
## extract a single locus:
jaguar[, 1]
jaguar[, 1, drop = TRUE] # returns a vector
jaguar[[1]] # also returns a vector
# }
Run the code above in your browser using DataLab