## Simulate 500 event times clustered near the middle of a one-year window.
origin <- as.Date("2020-01-01")
event.days <- rnorm(500, mean = 180, sd = 40)
event.times <- origin + event.days
intensity <- Intensity(event.times)
plot(intensity)
Run the code above in your browser using DataLab