search for: st_rendite

..... Can anybody please help? Best, Thomas ############################ CODE ############################ analyse<-read.csv2("C:\\Users\\Thomas\\Desktop\\PCA_Kohle_2007.csv",sep=";") rownames(analyse)<-analyse[,1] analyse<-analyse[,-1] require(tseries) require(fSeries) st_rendite<-apply(apply(analyse,2,log),2,diff)*100 pca<-princomp(st_rendite) summary(pca) 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_p...