qqmath(~ height | voice.part, aspect = "xy", data = singer,
prepanel = prepanel.qqmathline,
panel = function(x, ...) {
panel.qqmathci(x, ...)
panel.qqmathline(x, ...)
panel.qqmath(x, ...)
})
Run the code above in your browser using DataLab