StatDA包里面有函数ppplot.das(),语法：
ppplot.das(x, pdist = pnorm, xlab = NULL, ylab = "Probability", line = TRUE, lwd = 2, pch = 3, cex = 0.7, cex.lab = 1, ...)