## ---- 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
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.