Update transform_data_famd.r

scripts/phase2/transform_data_famd.r

@@ -148,6 +148,9 @@ data.famd <- FAMD(data, graph = FALSE)
 
 summary(data.famd)
 
+# scree plot
+fviz_screeplot(data.famd, addlabels = TRUE)
+
 # contribution to Dim (red dashed line = average value)
 fviz_contrib(data.famd, "var", axes = 1)
 fviz_contrib(data.famd, "var", axes = 2)
@@ -167,4 +170,4 @@ fviz_mca_ind(data.famd, label = "none",
              habillage = c("TRUE_GROUP_VOL"),
              addEllipses = TRUE,
              pointsize = 0,
-             ggtheme = theme_minimal())
+             ggtheme = theme_minimal())
\ No newline at end of file