## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.width = 7,
  fig.height = 4
)

## ----shuffled-diagnostic, eval = FALSE----------------------------------------
# predicted_shuffled <- observed[sample(nrow(observed)), ]
# 
# lambda_shuffled_ppi <- tune_lambda_ppi_score(
#   observed    = observed,
#   predicted   = predicted_shuffled,
#   item_pars   = human_fit$pars,
#   n_generated = nrow(generated)
# )
# 
# lambda_shuffled_ppi$lambda
# 
# lambda_shuffled_ability_risk <- tune_lambda_ability_risk(
#   observed    = observed,
#   predicted   = predicted_shuffled,
#   item_pars   = human_fit$pars,
#   n_generated = nrow(generated)
# )
# 
# lambda_shuffled_ability_risk$lambda