# NOT RUN {
data(pgm)
interv <- intervals(composite(pgm))
print(interv)
mean(interv) # Mean interval
# Now fit log-normal distribution instead of Weibull.
intervals(composite(pgm), densfun = "lognormal")
# }
# NOT RUN {
# Boxplot of fire interval distribution.
boxplot(intervals(composite(pgm))$intervals)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab