Print message about number of PCs considered for the chosen minimum explained variance

scripts/clusterSequences.R

@@ -32,6 +32,7 @@ pc <- prcomp(feat[,c(-1,-2)], scale=T)
 eigs <- pc$sdev^2
 cumvar = cumsum(eigs)/sum(eigs) # cumulative explaned variance of PCs
 pc_i = min( c(length(cumvar),which(cumvar >= as.double(args[2])) ) ) # get the PC that allows to explain at least the 99% of the variance
+write( paste0("[clusterSequences] Clustering on the first ",pc_i," principal components (",args[2]," of variance explained)"), stderr() )
 
 d <- dist(pc$x[,1:pc_i])
 hc <- hclust(d,method="ward.D2")