solving errors

vzhomeexperiments · Jan 17, 2021 · 9cad4e4 · 9cad4e4
1 parent 18ce2f4
commit 9cad4e4
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -27,7 +27,9 @@ Imports:
     h2o,
     ReinforcementLearning,
     openssl,
-    stats
+    stats,
+    moments,
+    cluster
 Suggests: 
     testthat (>= 2.1.0),
     covr,

diff --git a/R/mt_stat_transf.R b/R/mt_stat_transf.R
@@ -177,17 +177,15 @@ mt_stat_transf <- function(indicator_dataset,
 
   # option hclust with N clusters
   if(clust_method == 'hclust'){
-    d <- dist(dfCsc, method = 'euclidean')
+    d <- stats::dist(dfCsc, method = 'euclidean')
     hc_6 <- cluster::agnes(d, method = clust_opt)
     #pltree(hc_6, cex = 0.6, hang = -1, main = "Dendrogram of agnes")
-    hc_cl <- cutree(hc_6, k = N)
+    hc_cl <- stats::cutree(hc_6, k = N)
 
     dfC$M_T <- hc_cl
   }
 
 
-
-
   ## TDL -> properly assign classes to labels