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

## ----setup--------------------------------------------------------------------
library(tempodisco)

## -----------------------------------------------------------------------------
data("adj_amt_sim")
head(adj_amt_sim)

## -----------------------------------------------------------------------------
scored <- adj_amt_indiffs(adj_amt_sim)
head(scored)

## -----------------------------------------------------------------------------
scored <- adj_amt_indiffs(adj_amt_sim, block_indic = 'del', order_indic = 'trial_idx')
head(scored)

## -----------------------------------------------------------------------------
mod <- td_ipm(scored, discount_function = c('hyperbolic'))
plot(mod)