vignettes/b_time_dependency.R

## ---- echo=FALSE, include=FALSE------------------------------------------
library(heRomod)

## ------------------------------------------------------------------------
define_parameters(
  mr = exp(- state_time * lambda),
  age = 50 + model_time
)

define_state(
  cost = 100 - state_time,
  effect = 10
)

f <- function(x) abs(sin(x))

define_transition(
  C,  f(state_time),
  .1, .9
)
PolicyAnalysisInc/heRoMod documentation built on March 23, 2024, 4:29 p.m.