knitr::opts_chunk$set(fig.width=12, fig.height=8, fig.path='images/', echo=FALSE, warning=FALSE, message=FALSE, eval=TRUE)
load("data/flood_metadata.RData") source("global.R") q50 <- median(na.omit(flood_metadata$record_length)) q25 <- quantile(na.omit(flood_metadata$record_length), 0.25) q75 <- quantile(na.omit(flood_metadata$record_length), 0.75) st_selection_1 <- which(flood_metadata$record_length < q25) st_selection_2 <- which(flood_metadata$record_length > q25 & flood_metadata$record_length < q50) st_selection_3 <- which(flood_metadata$record_length > q50 & flood_metadata$record_length < q75) st_selection_4 <- which(flood_metadata$record_length > q75)
gof_type <- "QS" returnPeriod <- 2 plot4server_QSBS_ave(gof_type, returnPeriod,30,150, st_selection_1) plot4server_QSBS_ave(gof_type, returnPeriod,30,150, st_selection_2) plot4server_QSBS_ave(gof_type, returnPeriod,30,150, st_selection_3) plot4server_QSBS_ave(gof_type, returnPeriod,30,150, st_selection_4)
gof_type <- "BS" returnPeriod <- 2 plot4server_QSBS_ave(gof_type, returnPeriod,30,150, st_selection_1) plot4server_QSBS_ave(gof_type, returnPeriod,30,150, st_selection_2) plot4server_QSBS_ave(gof_type, returnPeriod,30,150, st_selection_3) plot4server_QSBS_ave(gof_type, returnPeriod,30,150, st_selection_4)
gof_type <- "r.levels" returnPeriod <- 10 plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_1) plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_2) plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_3) plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_4)
returnPeriod <- 100 plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_1) plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_2) plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_3) plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_4)
returnPeriod <- 200 plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_1) plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_2) plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_3) plot4server_rlevels_coeffvar_ave(gof_type, returnPeriod,30,150, st_selection_4)
gof_type <- "KS" plot4server_gof_averaged(gof_type, 30,150, st_selection_1) plot4server_gof_averaged(gof_type, 30,150, st_selection_2) plot4server_gof_averaged(gof_type, 30,150, st_selection_3) plot4server_gof_averaged(gof_type, 30,150, st_selection_4)
gof_type <- "AD" plot4server_gof_averaged(gof_type, 30,150, st_selection_1) plot4server_gof_averaged(gof_type, 30,150, st_selection_2) plot4server_gof_averaged(gof_type, 30,150, st_selection_3) plot4server_gof_averaged(gof_type, 30,150, st_selection_4)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.