Running examples in ‘RMAWGEN-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: extractmonths
> ### Title: Extracts the rows of a matrix corresponding to requested months
> ###   of a year given the date (origin) of the first row
> ### Aliases: extractmonths
> 
> ### ** Examples
> 
> 
> extractmonths()
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
RMAWGEN
 --- call from context --- 
extractmonths()
 --- call from argument --- 
if (class(data) == "matrix" | class(data) == "data.frame") {
    ndata = nrow(data)
    start <- as.integer(julian(as.POSIXct(origin, tz = "GMT")))
    years <- years(as.chron(as.POSIXct(origin, tz = "GMT") + 
        1:ndata - 1))
    if (is.null(year)) {
        out <- (data[which(months_f(1:ndata + start - 1, abbreviate = TRUE) %in% 
            when), ])
    }
    else {
        out <- (data[which((months_f(1:ndata + start - 1, abbreviate = TRUE) %in% 
            when) & (years %in% year)), ])
    }
} else {
    ndata = length(data)
    start <- as.integer(julian(as.POSIXct(origin), tz = "GMT"))
    if (is.null(year)) {
        out <- (data[which(months_f(1:ndata + start - 1, abbreviate = TRUE) %in% 
            when)])
    }
    else {
        out <- (data[which((months_f(1:ndata + start - 1, abbreviate = TRUE) %in% 
            when) & (year %in% years))])
    }
}
 --- R stacktrace ---
where 1: extractmonths()

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (data = array(1:ndim_max, dim = c(ndim_max, 1)), ndim_max = 1e+05, 
    when = c("Dec", "Jan", "Feb"), year = NULL, origin = "1961-1-1") 
{
    out <- NULL
    if (class(data) == "matrix" | class(data) == "data.frame") {
        ndata = nrow(data)
        start <- as.integer(julian(as.POSIXct(origin, tz = "GMT")))
        years <- years(as.chron(as.POSIXct(origin, tz = "GMT") + 
            1:ndata - 1))
        if (is.null(year)) {
            out <- (data[which(months_f(1:ndata + start - 1, 
                abbreviate = TRUE) %in% when), ])
        }
        else {
            out <- (data[which((months_f(1:ndata + start - 1, 
                abbreviate = TRUE) %in% when) & (years %in% year)), 
                ])
        }
    }
    else {
        ndata = length(data)
        start <- as.integer(julian(as.POSIXct(origin), tz = "GMT"))
        if (is.null(year)) {
            out <- (data[which(months_f(1:ndata + start - 1, 
                abbreviate = TRUE) %in% when)])
        }
        else {
            out <- (data[which((months_f(1:ndata + start - 1, 
                abbreviate = TRUE) %in% when) & (year %in% years))])
        }
    }
    return(out)
}
<bytecode: 0x55c357368b80>
<environment: namespace:RMAWGEN>
 --- function search by body ---
Function extractmonths in namespace RMAWGEN has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1