fixes #2

pierreroudier · Apr 12, 2018 · 05e1248 · 05e1248
1 parent bd58ec8
commit 05e1248
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/clhs-internal.R b/R/clhs-internal.R
@@ -40,8 +40,10 @@
 
   # Correlation of continuous data
   #
-  cor_sampled <- cor(data_continuous_sampled)
-  cor_sampled[is.na(cor_sampled)] <- 1 # when there's only one observation, cor() throws NAs - we set these to 1
+  cor_sampled <- suppressWarnings(cor(data_continuous_sampled))
+
+  # when there's only one observation, cor() throws NAs - we set these to 1
+  cor_sampled[is.na(cor_sampled)] <- 1 
 
   delta_obj_cor <- sum(abs(cor_mat - cor_sampled))