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

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

## -----------------------------------------------------------------------------
data("td_ip_simulated_ptpt")
head(td_ip_simulated_ptpt)
AUC(td_ip_simulated_ptpt)

## -----------------------------------------------------------------------------
data("td_bc_single_ptpt")
indiff_mod <- td_bcnm(td_bc_single_ptpt, discount_function = 'model-free')
indiff_data <- indiffs(indiff_mod)
head(indiff_data)
AUC(indiff_data)

## -----------------------------------------------------------------------------
AUC(indiff_data, del_transform = 'log')
AUC(indiff_data, del_transform = 'ord')

## -----------------------------------------------------------------------------
data("td_bc_single_ptpt")
mod <- td_bcnm(td_bc_single_ptpt, discount_function = 'hyperbolic')
AUC(mod)

## -----------------------------------------------------------------------------
AUC(mod, max_del = 1000)

## -----------------------------------------------------------------------------
AUC(mod, del_transform = 'log')

## -----------------------------------------------------------------------------
# Linear in transformed scale:
plot(indiff ~ del, td_ip_simulated_ptpt, log = 'x', type = 'l', ylim = c(0, 1))
points(indiff ~ del, td_ip_simulated_ptpt)
# Linear in original scale:
mod <- td_ipm(td_ip_simulated_ptpt, discount_function = 'model-free')
plot(mod, log = 'x', verbose = F)

## -----------------------------------------------------------------------------
AUC(td_ip_simulated_ptpt, del_transform = 'log')
AUC(mod, del_transform = 'log')