README.Rmd

---
output: github_document
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

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

# FMD risk validation - Tunisia

<!-- badges: start -->
<!-- badges: end -->

Renaud Lancelot, Facundo Muñoz

January 2020

Validation of a qualitative risk assessment of Foot-and-Mouth Disease
in Tunisia with observed data.


```{r load}
loadd(
  TN,  # Outiline map of Tunisia (SPDF with 1 polygon)
  ## Map of epi-units (imadas) 
  ## with Expòsition and Introduction risk levels
  ## (SPDF with 2057 polygons)
  FA,
  fig_freq_expositions
)
```


```{r cases-and-risk, fig.width = 3}
# tmap_mode(mode = "plot")
tm_shape(st_as_sf(FA)) +
  tm_fill("Exposition") +
  tm_bubbles(title.size = "Nmbr. outbr.", size = "m", alpha = .4) +
tm_shape(st_as_sf(TN)) +
  tm_borders() +
  tm_compass() +
  tm_scale_bar()
```
```{r freq-expo, fig.width = 6}
fig_freq_expositions
```