# NOT RUN {
data(bock)
responses <- table2df(bock.table[,2:6],count=bock.table[,7],
labs= paste("lsat6.",1:5,sep=""))
describe(responses)
## maybe str(bock.table) ; plot(bock.table) ...
# }
Run the code above in your browser using DataCamp Workspace