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

## ----eval = FALSE-------------------------------------------------------------
# wide <- data.frame(
#   id = c(1, 2),
#   age = c(30, 40),
#   mood_t1 = c(10, 20), mood_t2 = c(11, 21),
#   stress_t1 = c(5, 6), stress_t2 = c(7, 8)
# )
# 
# x <- ild_prepare(
#   wide,
#   id = "id",
#   input_format = "wide",
#   wide_keep_cols = "age",
#   wide_names_pattern = "^(.+)_t(.+)$",
#   wide_time_parser = "numeric"
# )