# \donttest{
### the example take longer than 5 seconds to run
p40003 <- get_pot(40003) # the Medway at Teston / East Farleigh
p40003$tablePOT[p40003$tablePOT$WaterYear > 1969 &
p40003$tablePOT$WaterYear < 1977,]
### no events in 1971 nor 1975
p40003$WaterYearInfo[p40003$WaterYearInfo$WaterYear > 1969 &
p40003$WaterYearInfo$WaterYear < 1977,]
# in 1971 all records are valid,
# in 1975 no exceedances
# might be due to the fact that almost no valid record are available
p40003 <- get_pot(40003, getAmax = TRUE)
p40003$WaterYearInfo[p40003$WaterYearInfo$WaterYear > 1969 &
p40003$WaterYearInfo$WaterYear < 1977,]
# the annual maximum in 1971 and 1975 was below the threshold
# no events exceeded the threshold
# }
Run the code above in your browser using DataLab