### MKS Test

For more information, see [here](https://rileywheadon.github.io/ffa-framework/articles/eda-change-points.html#mann-kendall-sneyers-test). 

- *Null Hypothesis*: `r params$null_hypothesis`
- *Alternative Hypothesis*: `r params$alternative_hypothesis`

Results:

```{r, include = FALSE}
p_value <- if (params$p_value < 0.001) "<0.001" else round(params$p_value, 3)

if (params$reject) {
	outcome <- "reject"
	years <- paste0(params$change_points$year, collapse = ", ")
	conclusion <- paste0("evidence of trend change(s) in ", years)
} else {
	outcome <- "fail to reject"	
	conclusion <- "no evidence of a trend change"
}
```

- The MKS test yielded a p-value of `r p_value`.
- At a significance level of `r params$alpha`, we `r outcome` the null hypothesis.
- Therefore, there is `r conclusion`.

```{r, echo = FALSE, out.width = "80%", fig.align = "center", dpi = 150}
knit_plot(params, glue("mks_{params$start}_{params$end}.png"))
```


