Table15.10 <- data.frame(
'Machine'=factor(c(rep(1,5), rep(2,5), rep(3,5))),
'y'=c(36, 41, 39, 42, 49, 40, 48, 39, 45, 44, 35, 37, 42, 34, 32),
'x'=c(20,25,24,25,32,22,28,22,30,28,21,23,26,21,15))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.