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

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

## -----------------------------------------------------------------------------
data("adj_amt_sim")
df <- adj_amt_indiffs(adj_amt_sim)
mod <- td_ipm(df, discount_function = 'model-free')
plot(mod, verbose = F)

## -----------------------------------------------------------------------------
nonsys(mod)

## -----------------------------------------------------------------------------
data("td_bc_single_ptpt")
mod <- td_bcnm(td_bc_single_ptpt, discount_function = 'model-free')
plot(mod, log = 'x', verbose = F)

## -----------------------------------------------------------------------------
nonsys(mod)