Nothing
# calculate coefficient a of linear regression model
calc_regres_coef_a <- function(y)
{
time_count <- seq_along(y)
ones <- seq(1,1,length=length(y))
content.matrix <- c(ones, time_count)
X <- matrix(content.matrix, byrow = FALSE, ncol = 2)
suppressWarnings({
fm <- stats::lsfit(x = X, y = y)
data.a <- fm$coef[[1]]
})
return(data.a)
}
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.