# R program to compute random
# Poisson Density
  
# Setting seed for
# random number generation
set.seed(1000)
  
# Set sample size
N <- 20
  
# Calling rpois() Function
y <- rpois(N, lambda = 5)
y

 [1] 4 6 2 6 5 2 6 5 3 3 4 6 4 7 7 2 5 6 2 5

# R program to compute random
# Poisson Density
  
# Setting seed for
# random number generation
set.seed(1000)
  
# Set sample size
N <- 100
  
# Calling rpois() Function
y <- rpois(N, lambda = 15)
  
# Plot a graph
plot(y)