# Quick script to examine KPI results
field_details <- readRDS('laravel_app/storage/app/esa/reports/kpis/esa_field_details_week39.rds')
summary_tables <- readRDS('laravel_app/storage/app/esa/reports/kpis/esa_kpi_summary_tables_week39.rds')

cat("=== FIELD DETAILS ===\n")
print(head(field_details, 20))
cat("\nTotal rows:", nrow(field_details), "\n\n")

cat("=== TCH FORECASTED FIELD RESULTS ===\n")
tch_results <- readRDS('laravel_app/storage/app/esa/reports/kpis/field_level/tch_forecasted_field_results_week39.rds')
print(tch_results)
cat("\nNumber of predictions:", nrow(tch_results), "\n\n")

cat("=== SUMMARY TABLES ===\n")
print(summary_tables$tch_forecasted)