## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(spooky)

## ----numeric------------------------------------------------------------------
data(time_features)
fit <- spooky(time_features, seq_len = 10, lno = 1,
              n_samp = 1, n_windows = 2, seed = 42)
fit
fit$best_model$testing_errors
head(fit$best_model$preds[[1]])

## ----categorical--------------------------------------------------------------
events <- data.frame(state = factor(rep(c("quiet", "active"), 30)))
categorical_fit <- spooky(events, seq_len = 2, lno = 1,
                          n_samp = 1, n_windows = 2, seed = 42)
categorical_fit$best_model$testing_errors

## ----search, eval=FALSE-------------------------------------------------------
# fit <- spooky(time_features,
#               seq_len = c(5, 30), lno = c(1, 10),
#               n_samp = 30, n_windows = 3, seed = 42)