36 lines
1,017 B
R
36 lines
1,017 B
R
# 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")
|
|
}
|