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

## ----load---------------------------------------------------------------------
library(deriva)

## ----data---------------------------------------------------------------------
head(sensor_monitoring)

## ----kswin--------------------------------------------------------------------
result <- detect_drift(sensor_monitoring, .col = value, method = "kswin", seed = 7)

subset(result, .drift)

## ----adwin--------------------------------------------------------------------
detect_drift(sensor_monitoring, .col = value, method = "adwin") |>
  subset(.drift)