by site

geco-bern · Feb 28, 2024 · 9650ff2 · 9650ff2
1 parent ad602b4
commit 9650ff2
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/vignettes/model_evaluation_VI.Rmd b/vignettes/model_evaluation_VI.Rmd
@@ -45,11 +45,6 @@ train <- rsample::training(ml_df_split) |>
 test <- rsample::testing(ml_df_split) |>
  select(-is_flue_drought)
 
-```
-
-Comparing VI versus fLUE
-
-```{r echo = FALSE, message=FALSE, warning=FALSE}
 # read in precompiled model
 regression_model <- readRDS(
  here::here("data/regression_model_spatial.rds")
@@ -65,8 +60,11 @@ df <- data.frame(
  test,
  flue_predicted = test_results
  )
+
 ```
 
+Comparing VI versus fLUE
+
 ```{r echo = FALSE, message=FALSE, warning=FALSE}
 
 df <- df |>
@@ -87,7 +85,7 @@ df_long <- df |>
  )
 
 rsq <- df_long |>
- group_by(cluster, index) |>
+ group_by(cluster, index, site) |>
  do({
  
  rsq <- summary(lm(flue ~ value, data = .))$r.squared