Nothing
## ---- echo=FALSE, include=FALSE-----------------------------------------------
library(heemod)
## -----------------------------------------------------------------------------
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
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.