"deflection" <-
structure(list(Deflection = c(0.11019, 0.21956, 0.32949, 0.43899,
0.54803, 0.65694, 0.76562, 0.87487, 0.98292, 1.09146, 1.20001,
1.30822, 1.41599, 1.52399, 1.63194, 1.73947, 1.84646, 1.95392,
2.06128, 2.16844, 0.11052, 0.22018, 0.32939, 0.43886, 0.54798,
0.65739, 0.76596, 0.87474, 0.983, 1.0915, 1.20004, 1.30818, 1.41613,
1.52408, 1.63159, 1.73965, 1.84696, 1.95445, 2.06177, 2.16829
), Load = c(150000, 300000, 450000, 600000, 750000, 900000, 1050000,
1200000, 1350000, 1500000, 1650000, 1800000, 1950000, 2100000,
2250000, 2400000, 2550000, 2700000, 2850000, 3000000, 150000,
300000, 450000, 600000, 750000, 900000, 1050000, 1200000, 1350000,
1500000, 1650000, 1800000, 1950000, 2100000, 2250000, 2400000,
2550000, 2700000, 2850000, 3000000)), .Names = c("Deflection",
"Load"), class = "data.frame", row.names = c("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"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.