--- editor_options: chunk_output_type: console title: "Case Studies" output: rmarkdown::html_vignette vignette: > %\VignetteIndexEntry{Case Studies} %\VignetteEngine{knitr::rmarkdown} %\VignetteEncoding{UTF-8} --- ```{r, include = FALSE} knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.width = 7 ) ``` ### Budapest Tahi ```{r Budapest_Tahi} bear1d_tahi_combined <- kwb.1dbear::calculate_bear1d( n_values = 0.3, rs_values = 2.7, foc_values = 0.002, log_koc_values = c(1, 2.9), hl_values = c(500, 2000), D_values = 10, v_values = 2.14, t_values = seq(0, 700, by = 1), x_values = 60 ) # Combine the plots tahi_combined <- kwb.1dbear::plot_combined(bear1d_tahi_combined) print(tahi_combined$plot) # Generate heat map log_koc_values <- seq(0.1, 6, length.out = 100) hl_values <- seq(1, 2000, length.out = 100) bear1d_tahi_heatmap <- kwb.1dbear::calculate_bear1d( n_values = 0.3, rs_values = 2.7, foc_values = 0.002, log_koc_values = log_koc_values, hl_values = hl_values, D_values = 10, v_values = 2.14, x_values = 60 ) print(kwb.1dbear::plot_heatmap(bear1d_tahi_heatmap, rect_data = tahi_combined$rect_data, measured_C_C0 = 0.73)) ``` ### Budapest Surany ```{r Budapest_Surany} bear1d_surany_combined <- kwb.1dbear::calculate_bear1d( n_values = 0.3, rs_values = 2.7, foc_values = 0.002, log_koc_values = c(1, 1.9), hl_values = c(500, 2000), D_values = 10, v_values = 1.38, t_values = seq(0, 700, by = 1), x_values = 228 ) # Combine the plots surany_combined <- kwb.1dbear::plot_combined(bear1d_surany_combined) print(surany_combined$plot) # Generate heat map bear1d_surany_heatmap <- kwb.1dbear::calculate_bear1d( n_values = 0.3, rs_values = 2.7, foc_values = 0.002, log_koc_values = seq(0.1, 6, length.out = 100), hl_values = seq(1, 2000, length.out = 100), D_values = 10, v_values = 1.38, x_values = 228 ) print(kwb.1dbear::plot_heatmap(bear1d_surany_heatmap, rect_data = surany_combined$rect_data, measured_C_C0 = 0.8)) ``` ### Vienna ```{r vienna} bear1d_vienna_combined <- kwb.1dbear::calculate_bear1d( n_values = 0.15, rs_values = 2.7, foc_values = 0.002, log_koc_values = c(1, 2.9), hl_values = c(500, 2000), D_values = 10, v_values = 21.3, t_values = seq(0, 400, by = 1), x_values = 141 ) # Combine the plots vienna_combined <- kwb.1dbear::plot_combined(bear1d_vienna_combined) print(vienna_combined$plot) # Generate heat map bear1d_vienna_heatmap <- kwb.1dbear::calculate_bear1d( n_values = 0.15, rs_values = 2.7, foc_values = 0.002, log_koc_values = seq(0.1, 6, length.out = 100), hl_values = seq(1, 2000, length.out = 100), D_values = 10, v_values = 21.3, x_values = 141 ) print(kwb.1dbear::plot_heatmap(bear1d_vienna_heatmap, rect_data = vienna_combined$rect_data, measured_C_C0 = 0.9)) ```