library(foreign) df <- read.spss('data.sav', to.data.frame=T) dflabels <- as.data.frame(attr(df, "variable.labels"))
Bo\(^2\)m =)