Commit 3f9e4e23 authored by Carl Corder's avatar Carl Corder
Browse files

Update transform_data_famd.r

parent 12b795e4
......@@ -147,7 +147,8 @@ data <- data %>% select("REGION", "INDUSTRY",
data.cor <- cor(select_if(data, is.numeric))
# heat map of correlation
heatmap(x = data.cor, symm = TRUE, margins = c(15, 10))
heatmap(x = data.cor, symm = TRUE,
margins = c(15, 10), col = viridis(256))
# use FactoMineR for PCA
data.famd <- FAMD(data, graph = FALSE)
......
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