#################Blatt 5################ ################Aufgabe 4############### ######################################## data<-read.table("D:/Stochastik I/Übungsblätter/koerper.data", header=T) data ##################(a)################### #####Bravais-Pearson: cor(data$Groesse, data$Gewicht, method="pearson") ##################(b)################### MySpearman<-function(x,y){ rgx<-0 rgy<-0 for (i in 1:length(x)){ rgx[i]<-length(x[x<=x[i]]) rgy[i]<-length(y[y<=y[i]]) } rho<-sum((rgx-mean(rgx))*(rgy-mean(rgy)) / sqrt(sum((rgx-mean(rgx))^2) *sum((rgy-mean(rgy))^2))) return(rho) } sp<-MySpearman(data$Groesse, data$Gewicht) sp ########zum Vergleich: cor(data$Groesse, data$Gewicht, method="spearman")