Table6.4 <- data.frame(
'Gap'=c(-1, -1, 1, 1, -1, -1, 1, 1, -1, -1, 1, 1, -1, -1, 1, 1),
'Flow'=c(-1, -1, -1, -1, 1, 1, 1, 1, -1, -1, -1, -1, 1,1,1,1),
'Power'=c(-1,-1,-1,-1,-1,-1,-1,-1,1, 1, 1, 1, 1, 1, 1, 1),
'EtchRate'=c(550,604,669,650,633,601,642,635,1037,1052,749,868,1075,1063,729,860),
'Block'=factor(c(2, 2, 3, 3, 3, 3, 2, 2, 4, 4, 1, 1, 1, 1, 4, 4))
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.