PrintTime <- function(pt, st) {
cat("Real time used: ", (proc.time() - pt)[3], "\n")
cat(" CPU time used: ", st[3], "\n\n\n")
}
UpdateStatus <- function(statusfile, text) {
if ((!(is.na(statusfile))) && (nchar(statusfile) > 0)) {
writeLines(text, statusfile)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.