## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## -----------------------------------------------------------------------------
library(EpiLossR)

mort <- mortality_loss(
  animals = 100,
  mortality = 5,
  value = 10000
)

mort

## -----------------------------------------------------------------------------
summary(mort)

## ----fig.width=6, fig.height=4------------------------------------------------
plot(mort)

## -----------------------------------------------------------------------------
as.data.frame(mort)

## -----------------------------------------------------------------------------
morb <- morbidity_loss(
  affected = 20,
  duration = 10,
  daily_loss = 100,
  treatment_cost = 5000
)

morb

## -----------------------------------------------------------------------------
summary(morb)

## ----fig.width=6, fig.height=4------------------------------------------------
plot(morb)

## -----------------------------------------------------------------------------
as.data.frame(morb)

## -----------------------------------------------------------------------------
sessionInfo()