x <- rnorm(1000)
exi.intervals(x > quantile(x, 0.9))
data(FCwx)
x <- FCwx[,"MxT"]
y <- FCwx[,"Year"]
# Extract just the July and August time points.
id <- is.element(FCwx[,"Mn"],7:8)
x <- x[id]
y <- y[id]
# Does not account for crossing from one year to the next.
exi.intervals(x)
# Takes account of crossing from one year to the next.
exi.intervals(x>93.5, blocks=y)
Run the code above in your browser using DataLab