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

## ----setup--------------------------------------------------------------------
library(delaydiscount)

## -----------------------------------------------------------------------------
head(remedi, n = 10L)

## -----------------------------------------------------------------------------
prep_remedi <- prepare_data_frame(remedi)

## -----------------------------------------------------------------------------
ln_k_ests <- get_subj_est_ln_k(prep_remedi)
head(ln_k_ests)

## -----------------------------------------------------------------------------
model_fit <- dd_hyperbolic_model(prep_remedi)

## -----------------------------------------------------------------------------
model_fit$ln_k_mean

## -----------------------------------------------------------------------------
model_fit$var

## -----------------------------------------------------------------------------
model_fit$model_test

## -----------------------------------------------------------------------------
model_fit$pairwise_f_tests