###################################################
### chunk number 1:
###################################################
compMatrix.writeTable <- function (compMatrix)
{
xtable(compMatrix, display = c("s", rep("d", 4), rep("G", 4)), vsep = "|")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.