summaryRiskServings generic function to print the risk summary statistics

Print summary MC risk results per contamiunated serving

Usage

summaryRiskServings.qraLm(x, ...)

Arguments

x

qraLm object. See Lot2LotGen()

...

optional plot parameters passed to the plot function

Author

Vasco Cadavez

Examples

dat <- Lot2LotGen(
                  nLots = 500,
                  sizeLot = 500,
                  unitSize = 500,
                  betaAlpha = 0.5112,
                  betaBeta = 9.959,
                  C0MeanLog = 1.023,
                  C0SdLog = 0.3267,
                  propVarInter = 0.7
                  )
DRmodel = "JEMRA"
population = 2
res <- DRForModel(dat, 
                  model=DRmodel,
                  population = population)
summaryRiskServings.qraLm(res)