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

## -----------------------------------------------------------------------------
library(personnelSelectionUtility)

## -----------------------------------------------------------------------------
model_taxonomy()

## -----------------------------------------------------------------------------
head(argument_glossary(), 12)

## -----------------------------------------------------------------------------
tr_classic(base_rate = .50, selection_ratio = .20, validity = .35)

## -----------------------------------------------------------------------------
R <- matrix(c(
  1.00, .30, .40,
  .30, 1.00, .35,
  .40, .35, 1.00
), nrow = 3, byrow = TRUE)
tr_multivariate(selection_ratios = c(.50, .50), base_rate = .50, R = R)

## -----------------------------------------------------------------------------
naylor_shine(validity = .35, selection_ratio = .20)

## -----------------------------------------------------------------------------
bcg_utility(
  validity = .35,
  selection_ratio = .20,
  sdy = 50000,
  n_selected = 100,
  tenure = 3,
  cost = 75000
)

## -----------------------------------------------------------------------------
boudreau_utility(
  validity = .35,
  baseline_validity = .20,
  selection_ratio = .20,
  sdy = 50000,
  n_by_period = c(100, 90, 80),
  contribution_margin = .30,
  tax_rate = .25,
  discount_rate = .08,
  cost_by_period = c(75000, 10000, 10000)
)

## -----------------------------------------------------------------------------
auc_to_rank_biserial(.75)
auc_to_d_equal_variance(.75)
auc_to_point_biserial(.75, base_rate = c(.50, .30, .20, .10))