x <- 3; aa <- seq(0.3, 04, by = 0.01)
ans.u <- pgamma.deriv.unscaled(x, aa)
head(ans.u)
if (FALSE) 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
}
Run the code above in your browser using DataLab