diff --git a/DESCRIPTION b/DESCRIPTION index 791cce8..d84d26a 100644 --- 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 index 71dcc9a..31af2ef 100644 --- 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