From 16adaea4a659776d45c3916a3d1ac59c2c28a9fd Mon Sep 17 00:00:00 2001 From: nperez Date: Thu, 31 Jan 2019 17:32:04 +0100 Subject: [PATCH] Bug for MAM fixed --- R/SeasonSelect.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/SeasonSelect.R b/R/SeasonSelect.R index 252a9c0..168696b 100644 --- a/R/SeasonSelect.R +++ b/R/SeasonSelect.R @@ -44,7 +44,7 @@ SeasonSelect <- function(data, season, dates = NULL, timedim = NULL, calendar = dim(data) = c(time = length(data)) timedim = 1 } - if (!is.character(season) | (season != "DJF" & season != "MMA" & season != "JJA" & season != "SON")) { + if (!is.character(season) | (season != "DJF" & season != "MAM" & season != "JJA" & season != "SON")) { stop("Parameter 'season' must be a character string indicating the season by the three months initials in capitals: 'DJF' for winter (summer), 'MAM' spring (autumn), 'JJA' for summer (winter) or 'SON' for autumn (spring) in the northern (southern) hemisphere.") } if (is.null(timedim)) { -- GitLab