diff --git a/r_app/CI_report_dashboard_planet.Rmd b/r_app/CI_report_dashboard_planet.Rmd
index 1b28888..ec6ad6e 100644
--- a/r_app/CI_report_dashboard_planet.Rmd
+++ b/r_app/CI_report_dashboard_planet.Rmd
@@ -272,8 +272,10 @@ print(" PRINT")
 
 # Yield prediction
 The below table shows estimates of the biomass if you would harvest them now.
-```{r eval=FALSE, message=FALSE, warning=FALSE, include=TRUE}
-CI_quadrant <-  readRDS(here(cumulative_CI_vals_dir,"All_pivots_Cumulative_CI_quadrant_year_v2.rds")) 
+
+```{r message=FALSE, warning=FALSE, include=FALSE}
+
+CI_quadrant <-  readRDS(here(cumulative_CI_vals_dir,"All_pivots_Cumulative_CI_quadrant_year_v2.rds"))
 
 harvesting_data <- harvesting_data %>% rename(season = year)
 
@@ -330,7 +332,7 @@ pred_rf_current_season <- prepare_predictions(predict(model_ffs_rf, newdata = pr
   mutate(CI_per_day = round(total_CI / Age_days, 1))
 ```
 
-```{r yield_plaatjes, eval=FALSE, include=TRUE}
+```{r yield_plaatjes, echo=FALSE }
 ggplot(pred_ffs_rf, aes(y = predicted_Tcha, x = tonnage_ha, col = sub_area)) +
   geom_point(size = 2, alpha = 0.6) +  # Adjust point size and transparency
   geom_abline(intercept = 0, slope = 1, linetype = "dashed", color = "red") +  # Reference line
diff --git a/r_app/Rplots.pdf b/r_app/Rplots.pdf
index a8e9edc..88ecdb7 100644
Binary files a/r_app/Rplots.pdf and b/r_app/Rplots.pdf differ