# Fit an NHPP model using the mean as a threshold
nhpp <- fit_nhpp(DataCPSim, tau = 826)
# Compute the cumulative exceedances of the mean
mcdf(nhpp)
# Fit an NHPP model using another threshold
nhpp <- fit_nhpp(DataCPSim, tau = 826, threshold = 200)
# Compute the cumulative exceedances of the threshold
mcdf(nhpp)
Run the code above in your browser using DataLab