x <- 3; aa <- seq(0.3, 04, by = 0.01)
ans.u <- pgamma.deriv.unscaled(x, aa)
head(ans.u)
## Not run: par(mfrow = c(1, 3))
# for (jay in 1:3) {
# plot(aa, ans.u[, jay], type = "l", col = "blue", cex.lab = 1.5,
# cex.axis = 1.5, las = 1, main = colnames(ans.u)[jay],
# log = "", xlab = "shape", ylab = "")
# abline(h = 0, v = 1:2, lty = "dashed", col = "gray") # Inaccurate at 1 and 2
# }
# ## End(Not run)
Run the code above in your browser using DataLab