data(bb.de)
bb.de[,, "Bf109"]
if (FALSE) {
plot(bb.de["sdown",, "Bf109"] ~ as.Date(dimnames(bb.de)[[2]]),
type = "h", col = "blue", las = 1, lwd = 3,
ylab = "Frequency", xlab = "1940",
main = "Numbers shot down (Bf 109)")
abline(h = c(5, 10, 15, 20), lty = "dashed", col = "grey")
points(bb.de["sdown",,"Bf109"] ~ as.Date(dimnames(bb.de)[[2]]), col = "blue")
}
Run the code above in your browser using DataLab