Compute the median effective delay.
Usage
ED50(mod, val_del = NULL)
Arguments
- mod
A temporal discounting model.
- val_del
Delayed value, if applicable (i.e., if magnitude effects are accounted for).
Value
Median effective delay value.
Examples
# \donttest{
data("td_bc_single_ptpt")
mod <- td_bcnm(td_bc_single_ptpt, discount_function = "exponential")
print(ED50(mod))
#> [1] 63.99963
# }