add further status messages

DKFZ-ODCF · Apr 6, 2018 · 893104f · 893104f
1 parent 0b96737
commit 893104f
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/resources/analysisTools/copyNumberEstimationWorkflow/manual_pruning.R b/resources/analysisTools/copyNumberEstimationWorkflow/manual_pruning.R
@@ -345,6 +345,9 @@ if (clustering_YN == "yes") {
 
 	#find optimal number of clusters using bayesian information criterion
 	cat("Calling Mclust...\n")
+	cat(paste0("cluster_matrix nrow: ",nrow(cluster_matrix),"\n"))
+	cat(paste0("cluster_matrix ncol: ",ncol(cluster_matrix),"\n"))
+	cat(paste0("min_num_cluster: ",min_num_cluster,"\n"))
 	d_clust <- Mclust(cluster_matrix, G=min_num_cluster:20)
 	cat("finished Mclust...\n")
 	m.best  <- dim(d_clust$z)[2]