if (FALSE) {
data(LyonIris)
#selecting the columns for the analysis
AnalysisFields <-c("Lden","NO2","PM25","VegHautPrt","Pct0_14",
"Pct_65","Pct_Img","TxChom1564","Pct_brevet","NivVieMed")
#rescaling the columns
Data <- sf::st_drop_geometry(LyonIris[AnalysisFields])
for (Col in names(Data)){
Data[[Col]] <- as.numeric(scale(Data[[Col]]))
}
Cmean <- CMeans(Data,4,1.5,500,standardize = FALSE, seed = 456,
tol = 0.00001, verbose = FALSE)
validation <- boot_group_validation(Cmean, nsim = 1000, maxiter = 1000,
tol = 0.01, init = "random")
}
Run the code above in your browser using DataLab