Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(srlTS)
library(magrittr) # for pipe
## ----lakehuron----------------------------------------------------------------
data("LakeHuron")
fit_LH <- srlTS(LakeHuron)
fit_LH
coef(fit_LH)
## ----stocks-------------------------------------------------------------------
data("EuStockMarkets")
X <- as.numeric(time(EuStockMarkets))
X_sp <- splines::bs(X-min(X), df = 9)
fit_stock <- srlTS(log(EuStockMarkets[,1]), n_lags_max = 400, X = X_sp, w_exo = "unpenalized")
tail(coef(fit_stock), 11)
# insert plot?
## ----nottem-------------------------------------------------------------------
data("nottem")
fit_nt <- srlTS(nottem, n_lags_max = 24)
coef(fit_nt)
## ----UKDriverDeaths-----------------------------------------------------------
data("UKDriverDeaths")
fit_ukdd <- srlTS(UKDriverDeaths, n_lags_max = 24)
coef(fit_ukdd)
## ----sunspot------------------------------------------------------------------
data("sunspot.month")
fit_ssm <- srlTS(sunspot.month)
fit_ssm
## ----sunspot2-----------------------------------------------------------------
summary(fit_ssm)
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.