fhu

                Never    
Text
       
library("mlbench")
data("PimaIndiansDiabetes")
pima_indians=PimaIndiansDiabetes
pima_indians
pima_indians.nzv <- nearZeroVar(pima_indians, saveMetrics = TRUE)

pima_indians <- pima_indians[, !pima_indians.nzv$nzv]

pima_indians.correlated <- findCorrelation(cor(pima_indians[,1:8]), cutoff = 0.65, verbose = TRUE, exact = TRUE)

Raw Text