Commit 710cc2e6 authored by Carl Corder's avatar Carl Corder
Browse files

Update transform_data_famd.r

parent 3a7b7d64
......@@ -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
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment