data(ngaruroro)
ng <- as.xts(ngaruroro)
ng <- ng["1986::1990", ]
drought <- find_droughts(ng)
ic <- pool_ic(drought)
summary(ic)
ma <- pool_ma(drought)
summary(ma)
sp <- pool_sp(drought)
summary(sp)
plot(sp)
Run the code above in your browser using DataLab