library(xts)
## Danish fire losses
data("fire")
str(fire)
stopifnot(inherits(fire, "xts"), length(fire) == 2167)
plot.zoo(fire, ylab = "Fire insurance claim")
## Largest 1% of simulated DNB losses
data("DNB")
stopifnot(dim(DNB) == c(25000, 3))
Run the code above in your browser using DataLab