Fit Linearized Hyperbolic Model for Delay Discounting Curves

Functions for estimating parameters and hyperparameters of the linearized hyperbolic model, and testing equality of hyperparameters.

delaydiscount

The goal of the delaydiscount package is to provide methods for analyzing delay discounting data using the linearized hyperbolic model.

Installation

You can install the development version of delaydiscount from Github.

# install.packages("devtools")
devtools::install_git("https://github.com/davideh-vt/delaydiscount")

Example

To fit a model on a dataset of delay discounting data, first run prepare_data_frame on the dataset, then run dd_hyperbolic_model on the output.

library(delaydiscount)
## basic example of fitting a model
prep_remedi <- prepare_data_frame(remedi)
fit <- dd_hyperbolic_model(prep_remedi)
fit$ln_k_mean
#>     condition ln_k_mean   std_err
#> EFT       EFT -6.877057 0.1638994
#> HIT       HIT -5.860534 0.1506689
#> NCC       NCC -6.078229 0.1369001
fit$var
#>  sigma_sq         g 
#>  1.978107 10.407330