From 9650ff260c8f0faa01fc4409d9d0ddbc158fd78a Mon Sep 17 00:00:00 2001
From: Koen Hufkens <koen.hufkens@gmail.com>
Date: Wed, 28 Feb 2024 10:56:53 +0100
Subject: [PATCH] by site

---
 vignettes/model_evaluation_VI.Rmd | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/vignettes/model_evaluation_VI.Rmd b/vignettes/model_evaluation_VI.Rmd
index b20ed0a..4ab1233 100644
--- 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