Lab 7: pt() versus qt() in R