Table15.16 <- data.frame(
'A'=c(-1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0, -1.0, 1.0),
'B'=c(-1.0, -1.0, 1.0, 1.0, -1.0, -1.0, 1.0, 1.0, -1.0, -1.0, 1.0, 1.0, -1.0, -1.0, 1.0, 1.0),
'C'=c(-1.0, -1.0, -1.0, -1.0, 1.0, 1.0, 1.0, 1.0, -1.0, -1.0, -1.0, -1.0, 1.0, 1.0, 1.0, 1.0),
'x'=c(4.05, 0.36, 5.03, 1.96, 5.38, 8.63, 4.1, 11.44, 3.58, 1.06, 15.53, 2.92, 2.48, 13.64, -0.67, 5.13),
'y'=c(-30.73, 9.07, 39.72, 16.3, -26.39, 54.58, 44.54, 66.2, -26.46, 10.94, 103.01, 20.44, -8.94, 73.72, 15.89, 38.57)
);
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.