# Daten einlesen library(foreign) Datenmatrix <- read.spss("./daten/cft_disk.sav", use.value.labels=TRUE, max.value.labels=Inf, to.data.frame=TRUE) attach(Datenmatrix) # Korrelation zwischen Deutschnote und IQ: Korrelationen = cor(Datenmatrix[,c("note_d","cft_nor")], use="pairwise.complete.obs") Korrelationen