#### `r groupID`

```{r, echo = FALSE, message = FALSE, warning = FALSE, fig.width = 7, fig.height = 7}

wk.assessment <- assessment[[groupID]]

if (isTrend) {
  if (estPlot) {
    plotTrend(wk.assessment) 
  } else {
    plotTrendSE(wk.assessment)
  }
}

if (!isTrend) {
  wk <- names(wk.assessment$status)
  wk.id <- grep("status.E", wk, fixed = TRUE)
  if (length(wk.id)) {
    AC.id <- strsplit(wk[wk.id], ".", fixed = TRUE)[[1]][2]
  } else
    AC.id <- "CONC"

  if (estPlot) {
    plotStatus(wk.assessment, AC.id) 
  } else {
    plotStatusSE(wk.assessment, AC.id)
  }
}

```

<br>