setwd("C:/a")  #this will save your work in the rdir folder on your C drive

library() # use for spss -- make sure you create a spss portable file
library(foreign)
data1<- read.spss("final.por", to.data.frame=T)

panel.pearson <- function(x, y, ...) {
horizontal <- (par("usr")[1] + par("usr")[2] + par("usr")[3]) / 3;
vertical <- (par("usr")[4] + par("usr")[5]) + par("usr")[6]  / 3;
text(horizontal, vertical, format(abs(cor(x,y)), digits=2))
}

pairs(data1[1:6], main = "Claudia’s Play", pch = 21, upper.panel=panel.spearman)

data1<- read.spss("final.por", to.data.frame=T)