data(simrain)
# Compute mbsi
spi_rain <- mbsi(simrain$rain, simrain$time)
# Visualize model fitting
plot(spi_rain)
# Visualize distribution of empirical cumulative density function
plot(spi_rain, which = "ecdf", binwidth = 0.05)
# Visualize extreme events
plot_extremes(spi_rain, threshold = 2)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.