search for: loadings_pca5

...summary(pca)$loadings screeplot(pca,type="l",main="Screeplot der Prinzipalkomponenten") loadings_pca1<--summary(pca)$loadings[1:6] loadings_pca2<--summary(pca)$loadings[7:12] loadings_pca3<--summary(pca)$loadings[13:18] loadings_pca4<--summary(pca)$loadings[19:24] loadings_pca5<--summary(pca)$loadings[25:30] loadings_pca6<--summary(pca)$loadings[31:36] loadmatrix<-as.matrix(cbind(loadings_pca1,loadings_pca2,loadings_pca3,loadings_pca4,loadings_pca5,loadings_pca6),princomp,dim(analyse)[2]) eigen<-summary(pca)$sdev #Monte-Carlo-Simulation trials<-1 Step<-...