Commit 12b795e4 authored by Carl Corder's avatar Carl Corder
Browse files

Update transform_data_famd.r

parent 710cc2e6
......@@ -143,9 +143,16 @@ data <- data %>% select("REGION", "INDUSTRY",
"PAID_COMMISSION", "PAID_CLAIMS", "CLAIM_COUNT", "IBNR",
"PERCENT_COMMISSION", "PREMIUM_TAX", "INTERNAL_EXPENSES", "PERCENT_PEPM")
# use FactoMineR for FAMD
# data correlation
data.cor <- cor(select_if(data, is.numeric))
# heat map of correlation
heatmap(x = data.cor, symm = TRUE, margins = c(15, 10))
# use FactoMineR for PCA
data.famd <- FAMD(data, graph = FALSE)
# data.famd$quali.var
summary(data.famd)
# scree plot
......
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