* Encoding: UTF-8.
* R SPSS

BEGIN PROGRAM R. 
# Pull the data into a data frame
testData = spssdata.GetDataFromSPSS() 

# Take a look 
print(testData) 

# Summary
summary(testData)

# Plots

attach(testData)

barplot(table(sex,ishopping), names.arg=c("Male", "Female"), beside=TRUE)

# install.packages("mosaic")

library(mosaic)

mosaicplot(table(sex,ishopping),color=c("red", "blue"))


END PROGRAM.