x <- seq(2, 10, length = 501)
head(ans <- pgamma.deriv(x, 2))
## Not run: 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 = "") ## End(Not run)
Run the code above in your browser using DataLab