# NOT RUN {
row.perc(xtabs(~Airline+Result, data=airlineArrival))
for (city in levels(airlineArrival$Airport)) {
cat(paste('\nArriving in ', city,':\n',sep=''))
print(row.perc(xtabs(~Airline+Result, airlineArrival,
subset=Airport==city)))
}
# }
Run the code above in your browser using DataLab