x <- seq(2, 10, length = 501)
head(ans <- pgamma.deriv(x, 2))
if (FALSE) par(mfrow = c(2, 3))
for (jay in 1:6)
plot(x, ans[, jay], type = "l", col = "blue", cex.lab = 1.5,
cex.axis = 1.5, las = 1, log = "x",
main = colnames(ans)[jay], xlab = "q", ylab = "")
Run the code above in your browser using DataLab