Nothing
##################################
## Bai & Perron last breakpoint ##
##################################
history_break <- function(formula, data, h = NULL, hpc = "none") {
n <- nrow(data)
## rule of thumb for minimal segment size
if(is.null(h)) h <- 6 * NCOL(model.matrix(formula, data = data[0,]))
## conduct breakpoints estimation
bp <- breakpoints(formula, data = data, h = h, hpc = hpc)
y_start <- tail(breakpoints(bp)$breakpoints, 1)
y_start <- if(is.na(y_start)) 1 else y_start + 1
data$time[y_start]
}
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.