View source: R/clustering_evaluation.R
calcexplainedInertia | R Documentation |
Calculate the explained inertia by a classification
calcexplainedInertia(data, belongmatrix)
data |
The original dataframe used for the classification (n*p) |
belongmatrix |
A membership matrix (n*k) |
A float: the percentage of the total inertia explained
data(LyonIris)
AnalysisFields <-c("Lden","NO2","PM25","VegHautPrt","Pct0_14","Pct_65","Pct_Img",
"TxChom1564","Pct_brevet","NivVieMed")
dataset <- sf::st_drop_geometry(LyonIris[AnalysisFields])
queen <- spdep::poly2nb(LyonIris,queen=TRUE)
Wqueen <- spdep::nb2listw(queen,style="W")
result <- SFCMeans(dataset, Wqueen,k = 5, m = 1.5, alpha = 1.5, standardize = TRUE)
calcexplainedInertia(result$Data,result$Belongings)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.