fix for #34

kassambara · May 23, 2017 · d678847 · d678847
1 parent 1eccf99
commit d678847
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,7 @@
 
 - Now, the argument `invisible` works properly in the function `fviz_pca_biplot()`([@ginolhac, #26](https://github.com/kassambara/factoextra/issues/26)).
 - The function `fviz_dend()` now works for an object of class `diana` ([@qfazille, #30](https://github.com/kassambara/factoextra/issues/30)).
+- Now, `fviz_cluster()` supports for HCPC ([@famuvie, #34](https://github.com/kassambara/factoextra/issues/34)).
 
 ## Minor changes
 

diff --git a/R/fviz_cluster.R b/R/fviz_cluster.R
@@ -142,7 +142,7 @@ fviz_cluster <- function(object, data = NULL, choose.vars = NULL, stand = TRUE,
   }
   # HCPC in FactoMineR
   else if(inherits(object, "HCPC")) {
-    object$cluster <- res.hcpc$call$X$clust
+    object$cluster <- object$call$X$clust
     data <- res.hcpc <- object
     stand <- FALSE # to avoid trying to standardize HCPC results
 #     data <- object$data.clust[, -ncol(object$data.clust), drop = FALSE]