data(Fort)
extremalindex(Fort$Prec, 0.395, method="runs", run.length=9, blocks=Fort$year)
if (FALSE) {
tmp <- extremalindex(Fort$Prec, 0.395, method="runs", run.length=9, blocks=Fort$year)
tmp
ci(tmp)
tmp <- extremalindex(Fort$Prec, 0.395, method="intervals", run.length=9, blocks=Fort$year)
tmp
ci(tmp)
}
Run the code above in your browser using DataLab