## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE, comment = "#>", message = FALSE, warning = FALSE,
  fig.width = 7, fig.height = 5.5
)
library(idiographic)
data(srl)
vars <- c("efficacy", "value", "planning", "monitoring", "effort")

## ----run----------------------------------------------------------------------
pp <- preprocess(srl, vars = vars, id = "name")
pp

## ----summary------------------------------------------------------------------
summary(pp)

## ----counts-------------------------------------------------------------------
head(pp$counts)

## ----auto---------------------------------------------------------------------
clean <- preprocess(srl, vars = vars, id = "name", detrend = "auto")
summary(clean)

## ----fine-control-------------------------------------------------------------
clean2 <- preprocess(srl, vars = vars, id = "name",
                     detrend = c(planning = "difference", value = "linear"),
                     checks  = c("trend", "unit_root"))
summary(clean2)