---
title: "Getting Started with EpiLossR"
author: "Vinodhkumar Obli Rajendran and Keerthi Aaradhana"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Getting Started with EpiLossR}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r setup, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

# Introduction

**EpiLossR** provides standardized tools for estimating direct economic losses associated with mortality and morbidity in animal diseases.

Version **0.1.0** focuses on two core functions:

- `mortality_loss()`
- `morbidity_loss()`

These functions return a common S3 object (`epi_loss`) with methods for printing, summarizing, plotting, and exporting results.

# Mortality Loss

```{r}
library(EpiLossR)

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

mort
```

## Summary

```{r}
summary(mort)
```

## Plot

```{r fig.width=6, fig.height=4}
plot(mort)
```

## Convert to Data Frame

```{r}
as.data.frame(mort)
```

# Morbidity Loss

```{r}
morb <- morbidity_loss(
  affected = 20,
  duration = 10,
  daily_loss = 100,
  treatment_cost = 5000
)

morb
```

## Summary

```{r}
summary(morb)
```

## Plot

```{r fig.width=6, fig.height=4}
plot(morb)
```

## Convert to Data Frame

```{r}
as.data.frame(morb)
```

# Session Information

```{r}
sessionInfo()
```