fround <- function (x, digits) {
format (round (x, digits), nsmall=digits)
}
pfround <- function (x, digits) {
print (fround (x, digits), quote=FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.