lambda <- 1; xvec <- seq(0, 2, length = 400)
plot(xvec, dpois.points(xvec, lambda, ostat = 1, dimension = 2),
type = "l", las = 1, col = "blue",
sub = "First order statistic",
main = paste("PDF of PoissonPoints distribution with lambda = ",
lambda, " and on the plane", sep = ""))
Run the code above in your browser using DataLab