Table11.19 <- data.frame(
'Polyethylene'=c(1, 1, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0, 0, 0, 0, 0, 0, 0),
'Polystyrene'= c(0, 0, 0.5, 0.5, 0.5, 0, 0, 0, 1, 1, 0.5, 0.5, 0.5, 0, 0),
'Polypropylene'=c(0, 0, 0, 0, 0, 0.5, 0.5, 0.5, 0, 0, 0.5, 0.5, 0.5, 1, 1),
'Elongation'= c(11, 12.4, 15, 14.8, 16.1, 17.7, 16.4, 16.6, 8.8, 10, 10, 9.7, 11.8, 16.8, 16)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.