| mcmodel | R Documentation |
Specifies a ‘mcmodel’ without evaluating it, for subsequent evaluation using
evalmcmod.
mcmodel(x, is.expr = FALSE)
x |
an R call or an expression. |
is.expr |
‘FALSE’ to send a call, ‘TRUE’ to send an expression. |
The model should be put between ‘{’ and ‘}’. The last line should be of the form ‘mc(...)’. Any reference to the number of simulations in the variability dimension should use ‘ndvar()’ or (preferred) ‘nsv’. Any reference to the number of simulations in the uncertainty dimension should use ‘ndunc()’ or (preferred) ‘nsu’.
an R expression of class ‘mcmodel’.
expression, evalmcmod to evaluate the model,
mcmodelcut to evaluate in a loop.
modEC1 <- mcmodel({
conc <- mcdata(10, "0")
cook <- mcstoc(rempiricalD, values=c(0, 1/5, 1/50), prob=c(0.027, 0.373, 0.600))
serving <- mcstoc(rgamma, shape=3.93, rate=0.0806)
expo <- conc * cook * serving
dose <- mcstoc(rpois, lambda=expo)
risk <- 1 - (1 - 0.001)^dose
mc(conc, cook, serving, expo, dose, risk)
})
evalmcmod(modEC1, nsv=100, nsu=100)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.