# NOT RUN {
qpvt(bhmtrains, "TOC", "TrainCategory", "n()")
qpvt(bhmtrains, c("=", "TOC"), c("TrainCategory", "PowerType"),
c("Number of Trains"="n()",
"Maximum Speed"="max(SchedSpeedMPH, na.rm=TRUE)"))
# }
Run the code above in your browser using DataLab