Case Studies

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))
#> Warning: Removed 14 rows containing non-finite outside the scale range
#> (`stat_contour()`).

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))
#> Warning: Removed 58 rows containing non-finite outside the scale range
#> (`stat_contour()`).

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))
#> Warning: Removed 80 rows containing non-finite outside the scale range
#> (`stat_contour()`).