# Crime Example

library(leaps)

cat("Crime dataset:\n")
crime = read.table("crime.txt", header=T)
print(crime)

depvar = as.vector(crime$crime_att)
predictors = as.matrix(crime[-1])
out = leaps(x=predictors, y=depvar, 
   wt=rep(1, NROW(predictors)), 
   int=TRUE, 
   method=c("adjr2"), 
   nbest=10, 
   names=c("age", "college", "income", "sex" ))
print(cbind(out$which, out$adjr2))