28 lines
846 B
R
28 lines
846 B
R
# Quick script to inspect the actual band structure of 8-band imagery
|
|
|
|
library(terra)
|
|
|
|
sample_tif <- "laravel_app/storage/app/esa/merged_tif_8b/2025-01-15.tif"
|
|
r <- rast(sample_tif)
|
|
|
|
cat("Number of bands:", nlyr(r), "\n\n")
|
|
|
|
# Check each band's values
|
|
for (i in 1:nlyr(r)) {
|
|
band <- r[[i]]
|
|
vals <- values(band, mat=FALSE)
|
|
vals_sample <- vals[!is.na(vals)][1:100]
|
|
|
|
cat("Band", i, ":\n")
|
|
cat(" Name:", names(r)[i], "\n")
|
|
cat(" Sample values:", paste(head(vals_sample, 10), collapse = ", "), "\n")
|
|
cat(" Min:", min(vals, na.rm=TRUE), "\n")
|
|
cat(" Max:", max(vals, na.rm=TRUE), "\n")
|
|
cat(" Mean:", mean(vals, na.rm=TRUE), "\n\n")
|
|
}
|
|
|
|
# Check if band 9 is actually a mask or quality band
|
|
cat("\nBand 9 unique values (first 50):\n")
|
|
band9_vals <- values(r[[9]], mat=FALSE)
|
|
print(head(unique(band9_vals[!is.na(band9_vals)]), 50))
|