print.sd.series <- function(y.trans) {
cat(paste("Standard deviation of the working series=", format(sqrt(var((y.trans))))), "\n")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.