theta <- exp(-1); x <- seq(0.0, 17, length = 700)
dlind(0:10, theta)
if (FALSE) {
plot(x, dlind(x, theta), type = "l", las = 1, col = "blue",
main = "dlind(x, theta = exp(-1))")
abline(h = 1, col = "grey", lty = "dashed") }
Run the code above in your browser using DataLab