library("foreign")
df <- read.arff("contact-lenses.arff")
summary(df)
str(df)
q()