This is an artificial data set on choice of means of transport based on cost and walking distance.
data(Transport)
with()
attach()
length()
nchar()
lapply
sapply