## ----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)
has_cograph <- requireNamespace("cograph", quietly = TRUE)

## ----audit--------------------------------------------------------------------
vars <- c("efficacy", "value", "planning", "monitoring", "effort")
audit <- preprocess(srl, vars = vars, id = "name", min_obs = 100)
audit

## ----fit-two------------------------------------------------------------------
var_fit <- fit_var(srl, vars = vars, id = "name", subject = "Grace",
                   scale = TRUE)
gvar_fit <- fit_graphical_var(srl, vars = vars, id = "name", subject = "Grace",
                              n_lambda = 8)
summary(var_fit)
summary(gvar_fit)

## ----matrices-----------------------------------------------------------------
head(edges(var_fit), 8)
edges(gvar_fit)

## ----plot-var, eval=has_cograph-----------------------------------------------
plot(var_fit)

## ----plot-gvar, eval=has_cograph----------------------------------------------
plot(gvar_fit, layer = "contemporaneous")