Table11.20 <- data.frame(
'StandardOrder'=c(1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0, 8.0, 9.0, 10.0, 11.0, 12.0, 13.0, 14.0),
'Run'=c(2.0, 1.0, 4.0, 13.0, 7.0, 3.0, 6.0, 11.0, 10.0, 14.0, 12.0, 9.0, 5.0, 8.0),
'Monomer'=c(17.5, 10.0, 15.0, 25.0, 5.0, 5.0, 11.25, 5.0, 18.13, 8.13, 25.0, 15.0, 10.0, 5.0),
'Crosslinker'=c(32.5, 40.0, 25.0, 25.0, 25.0, 32.5, 32.5, 40.0, 28.75, 28.75, 25.0, 25.0, 40.0, 25.0),
'Resin'=c(50.0, 50.0, 60.0, 50.0, 70.0, 62.5, 56.25, 55.0, 53.13, 63.13, 50.0, 60.0, 50.0, 70.0),
'Hardness'=c(29.0, 26.0, 17.0, 28.0, 35.0, 31.0, 21.0, 20.0, 29.0, 25.0, 19.0, 14.0, 30.0, 23.0),
'Solids'=c(9.539, 27.33, 29.21, 30.46, 74.98, 31.5, 15.59, 19.2, 23.44, 32.49, 23.01, 41.46, 32.98, 70.95)
);
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.