# Simple SAR Data Test
# ====================

cat("Testing SAR data loading...\n")

# Load only essential libraries
library(terra, quietly = TRUE)

# Test loading one SAR file
sar_file <- "python_scripts/data/aura/weekly_SAR_mosaic/week_33_2025_VV_dB_filtered.tif"

if (file.exists(sar_file)) {
  cat("✓ SAR file found:", sar_file, "\n")
  
  # Load the raster
  sar_data <- rast(sar_file)
  
  cat("✓ SAR data loaded successfully\n")
  cat("  Dimensions:", dim(sar_data), "\n")
  cat("  CRS:", crs(sar_data), "\n")
  cat("  Value range:", round(global(sar_data, range, na.rm = TRUE)[,1], 2), "dB\n")
  
  # Test basic statistics
  mean_val <- global(sar_data, mean, na.rm = TRUE)[1,1]
  sd_val <- global(sar_data, sd, na.rm = TRUE)[1,1]
  
  cat("  Mean backscatter:", round(mean_val, 2), "dB\n")
  cat("  Standard deviation:", round(sd_val, 2), "dB\n")
  
  cat("\n✓ SAR data test successful!\n")
  cat("Ready to proceed with full analysis.\n")
  
} else {
  cat("✗ SAR file not found:", sar_file, "\n")
}