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") load("data/flood_data.RData") source("global.R") q50 <- median(na.omit(flood_metadata$median_fgp)) q25 <- quantile(na.omit(flood_metadata$median_fgp), 0.25) q75 <- quantile(na.omit(flood_metadata$median_fgp), 0.75) st_selection_1 <- which(flood_metadata$median_fgp < q25) st_selection_2 <- which(flood_metadata$median_fgp > q25 & flood_metadata$median_fgp < q50) st_selection_3 <- which(flood_metadata$median_fgp > q50 & flood_metadata$median_fgp < q75) st_selection_4 <- which(flood_metadata$median_fgp > 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.