"maydow" <-
structure(list(Day = structure(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21), class = "factor", .Label = c("May-01-03",
"May-02-03", "May-05-03", "May-06-03", "May-07-03", "May-08-03",
"May-09-03", "May-12-03", "May-13-03", "May-14-03", "May-15-03",
"May-16-03", "May-19-03", "May-20-03", "May-21-03", "May-22-03",
"May-23-03", "May-27-03", "May-28-03", "May-29-03", "May-30-03"
)), DJA = c(8454.25, 8582.68, 8531.57, 8588.36, 8560.63, 8491.22,
8604.6, 8726.73, 8679.25, 8647.82, 8713.14, 8678.97, 8493.39,
8491.36, 8516.43, 8594.02, 8601.38, 8781.35, 8793.12, 8711.18,
8850.26), max.temp = c(72, 75, 59, 61, 79, 60, 66, 65, 61, 66,
69, 61, 76, 79, 64, 56, 56, 69, 69, 75, 79)), .Names = c("Day",
"DJA", "max.temp"), row.names = c("21", "20", "19", "18", "17",
"16", "15", "14", "13", "12", "11", "10", "9", "8", "7", "6",
"5", "4", "3", "2", "1"), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.