"dvdsales" <-
structure(as.integer(c(1111285, 797058, 542698, 572031, 370031,
125536, 34027, NA, 919295, 743488, 736118, 555856, 401035, 109399,
34236, NA, 1545112, 1613649, 1404026, 1207489, 412559, 123466,
38336, NA, 1161857, 1272337, 1095930, 631353, 409192, 269107,
42889, 34601, 1219838, 1332897, 950412, 523225, 453435, 279756,
47805, 27051, NA, 2100432, 1632032, 920839, 654687, 326668, 79044,
29037, NA, 999508, 966129, 693013, 537453, 325151, 84709, 19416,
NA, 1436878, 884288, 673926, 557617, 260225, 81170, 34021, NA,
2496497, 2299864, 1768821, 1296280, 501501, 113558, 34371, NA,
2491871, 1704148, 1516211, 1236658, 603048, 163074, 56407, NA,
3682691, 2544130, 1781048, 866507, 449242, 136908, 37657, NA,
3027083, 2330048, 1862772, 1303091, 646290, 233505, 42575)), .Dim = as.integer(c(8,
12)), .Dimnames = list(c("2004", "2003", "2002", "2001", "2000",
"1999", "1998", "1997"), c("JAN", "FEB", "MAR", "APR", "MAY",
"JUN", "JUL", "AUG", "SEP", "OCT", "NOV", "DEC")))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.