data(spectral_data)
## Calculate all possible combinations for WorldView-2-8
spec_WV <- spectralResampling(spectral_data, "WorldView2-8",
response_function = FALSE)
nri_WV <- nri(spec_WV, recursive = TRUE)
cortestnri <- cor.test(nri_WV, attribute(spec_WV)$chlorophyll)
cortestnri
Run the code above in your browser using DataLab