theta <- exp(-1); x <- seq(0.0, 17, length = 700)
dlind(0:10, theta)
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