## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(bayesqm)
fit <- demo_fit(seed = 1)

## -----------------------------------------------------------------------------
head(compute_loadings(fit), 3)

## -----------------------------------------------------------------------------
head(compute_flags(fit), 3)

## -----------------------------------------------------------------------------
head(compute_zscores(fit), 3)

## -----------------------------------------------------------------------------
head(compute_factor_array(fit), 3)

## -----------------------------------------------------------------------------
qdc <- compute_qdc(fit)
head(qdc, 3)

## -----------------------------------------------------------------------------
head(attr(qdc, "contrasts"), 3)

## -----------------------------------------------------------------------------
factor_characteristics(fit)

## -----------------------------------------------------------------------------
claims(fit, q = 0.25)

## -----------------------------------------------------------------------------
check_fit(fit, draws = 20)

## -----------------------------------------------------------------------------
pc <- check_persons(fit, draws = 10, mixes = 20)
head(pc, 3)

## -----------------------------------------------------------------------------
head(crib_sheet(fit), 3)