Commit d2c7b0e7 authored by Jean-Baptiste Feret's avatar Jean-Baptiste Feret

Merge branch 'dev'

parents 9e7b03bc cb7e372e
......@@ -111,6 +111,20 @@ init_kmeans <- function(dataPCA, Pix_Per_Partition, nb_partitions, nbclusters, n
m0 <- apply(dataPCA, 2, function(x) min(x))
M0 <- apply(dataPCA, 2, function(x) max(x))
d0 <- M0 - m0
if (length(which(is.na(m0)))>0 | length(which(is.na(M0)))>0 | length(which(is.infinite(m0)))>0 | length(which(is.infinite(M0)))>0){
message("")
message("*********************************************************")
message("WARNING: the processing resulted in NA or infinite values")
message(" This may be due to noisy spectral domains ")
message(" This may be due to noisy spectral domains or ")
message(" individual pixels showing Inf or Na values in input data")
message(" Please check input data ")
message(" ")
message(" process aborted ")
message("*********************************************************")
message("")
stop()
}
dataPCA <- center_reduce(dataPCA, m0, d0)
# get the dimensions of the images, and the number of subimages to process
dataPCA <- split(as.data.frame(dataPCA), rep(1:nb_partitions, each = Pix_Per_Partition))
......
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