#PCA res.pcadep <- PCA(dependent, graph = FALSE) res.pcaindep <- PCA(independent, graph = FALSE) res.pcaall<- PCA(constant, graph = FALSE) clust3=kmeans(depend