Commit 42f474da authored by Jean-Baptiste Feret's avatar Jean-Baptiste Feret

update Spectral

parent a9d38180
......@@ -65,7 +65,7 @@ map_spectral_species <- function(Input_Image_File,Output_Dir,PCA_Files,PCA_model
print("Apply PCA to subset prior to k-Means")
# remove constant bands if needed
if (!length(Spectral$BandsNoVar) == 0) {
Subset$DataSubset <- Subset$DataSubset[, -Spectral$BandsNoVar]
Subset$DataSubset <- Subset$DataSubset[, -SpectralFilter$BandsNoVar]
}
if (TypePCA == "PCA" | TypePCA == "SPCA") {
dataPCA <- t(t(PCA_model$eiV[, 1:PCA_model$Nb_PCs]) %*% t(center_reduce(Subset$DataSubset, PCA_model$mu, PCA_model$scale)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment