Nothing
#' @method print bfast
#' @export
print.bfast <- function(x, ...)
{
cat("\n TREND BREAKPOINTS")
niter <- length(x$output)
if(x$output[[niter]]$Vt.bp[1] != 0)
print(x$output[[niter]]$ci.Vt)
else
cat(": None\n")
cat("\n SEASONAL BREAKPOINTS")
if(x$output[[niter]]$Wt.bp[1] != 0)
print(x$output[[niter]]$ci.Wt)
else
cat(": None\n")
cat("\n")
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.