"student.expenses" <-
structure(list(cell.phone = structure(c(2, 2, 1, 2, 1, 2, 2, 
1, 2, 2), .Label = c("N", "Y"), class = "factor"), cable.tv = structure(c(2, 
1, 1, 2, 1, 1, 1, 1, 2, 1), .Label = c("N", "Y"), class = "factor"), 
    dial.up = structure(c(2, 1, 1, 1, 1, 2, 1, 1, 1, 2), .Label = c("N", 
    "Y"), class = "factor"), cable.modem = structure(c(1, 1, 
    1, 2, 1, 1, 2, 1, 1, 1), .Label = c("N", "Y"), class = "factor"), 
    car = structure(c(2, 1, 2, 2, 1, 2, 1, 2, 2, 1), .Label = c("N", 
    "Y"), class = "factor")), .Names = c("cell.phone", "cable.tv", 
"dial.up", "cable.modem", "car"), row.names = c("1", "2", "3", 
"4", "5", "6", "7", "8", "9", "10"), class = "data.frame")