## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----fig.width = 10, fig.height = 8, fig.align = "center", out.width = "100%"----
library(ffaframework)

df <- data_local("CAN-08NH021.csv")
head(df)

plot_ams_data(df$max, df$year, title = "Kootenai River at Porthill (08NH021)")

## ----fig.width = 10, fig.height = 8, fig.align = "center", out.width = "100%"----
pettitt_test <- eda_pettitt_test(df$max, df$year)

print(pettitt_test$p_value)

print(pettitt_test$change_year)

plot_pettitt_test(pettitt_test)

## ----fig.width = 10, fig.height = 8, fig.align = "center", out.width = "100%"----
mks_test <- eda_mks_test(df$max, df$year)

print(mks_test$p_value)

print(mks_test$change_df$year)

plot_mks_test(mks_test)