#### Status summary (numbers)

<p class = "startbig">
Number of time series with each status by MIME and OSPAR region   
</p>

```{r echo = FALSE, message = FALSE, results = "asis"}
tab <- tableTimeSeries(assessment, "status", asNumbers = TRUE, purpose = purpose)
tab <- xtable::xtable(tab)
print(tab, type = "html", include.rownames = FALSE) 
```

<br>

#### Status summary (proportions)

<p class = "startbig">
Proportion of time series with each status by MIME and OSPAR region  
</p>

```{r echo = FALSE, message = FALSE, results = "asis"}
tab <- tableTimeSeries(assessment, "status", asNumbers = FALSE, purpose = purpose)
tab <- xtable::xtable(tab)
print(tab, type = "html", include.rownames = FALSE) 
```

<br>
