R/getHH.R

In ensembleMOS: Ensemble Model Output Statistics

`getHH` <-
function (YYYYMMDDHH)
{
 YYYYMMDDHH <- sapply(YYYYMMDDHH, as.character)
 l <- sapply(YYYYMMDDHH, nchar)
 if (any(I <- (l > 10 | l == 9 | l < 8))) stop("invalid date string")
 HH <- sapply(YYYYMMDDHH, 
   function(s) if (nchar(s) == 10) substring(s,9,10) else"00")
 unique(HH)
}