`bbsdata` <-
structure(c(1997L, 1998L, 1999L, 2000L, 2001L, 14L, 14L, 11L, 
14L, 15L, 10L, 9L, 12L, 7L, 7L, 6L, 7L, 10L, 5L, 5L, 3L, 4L, 
4L, 5L, 2L, 3L, 2L, 4L, 5L, 5L, 6L, 4L, 1L, 4L, 6L, 2L, 4L, 4L, 
3L, 3L, 3L, 0L, 2L, 4L, 2L, 2L, 4L, 3L, 1L, 1L, 1L, 2L, 3L, 1L, 
2L, 1L, 0L, 0L, 2L, 4L, 1L, 1L, 2L, 1L, 4L, 0L, 0L, 4L, 1L, 0L, 
3L, 3L, 1L, 3L, 1L, 2L, 0L, 1L, 3L, 0L, 0L, 3L, 0L, 1L, 2L, 3L, 
1L, 1L, 1L, 3L, 1L, 0L, 1L, 0L, 1L, 1L, 0L, 1L, 2L, 1L, 1L, 1L, 
2L, 0L, 1L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 0L, 0L, 1L, 1L, 0L, 
1L, 0L, 2L, 1L, 0L, 0L, 0L, 0L, 2L, 0L, 1L, 1L, 0L, 0L, 0L, 1L, 
1L, 1L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 1L, 0L, 1L, 0L, 0L, 0L, 
0L, 1L, 1L, 0L, 1L, 0L, 0L, 3L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 1L, 0L, 0L, 0L, 
0L, 0L, 1L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 
0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L, 0L), .Dim = c(5L, 51L), .Dimnames = list(
    c("1997", "1998", "1999", "2000", "2001"), c("year", "1", 
    "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", 
    "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", 
    "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", 
    "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", 
    "43", "44", "45", "46", "47", "48", "49", "50")))