diff --git a/R/AnoMultiMetric.R b/R/AnoMultiMetric.R index 98eb93baaed769ffeb200bc1d8361a74553f8075..1e52cd580d3143593acafc58f282330208932000 100644 --- a/R/AnoMultiMetric.R +++ b/R/AnoMultiMetric.R @@ -5,7 +5,7 @@ #' #'@param data an s2dverification object (list) giving as output of \code{Load} function from S2dverification package. #'@param metric a character string giving the metric for computing the maximum skill. This must be one of the strings 'correlation', 'rms' or 'rmsss. -#'@param multimodel a logical value indicating wether a Multi-Model Mean should be computed. +#'@param multimodel a logical value indicating whether a Multi-Model Mean should be computed. #'@param names a character vector indicating the names of the models to be compared. #' #'@return A list of 3: diff --git a/R/MultivarRMSE.R b/R/MultivarRMSE.R index d6b1cbfaabc11ac578f71a1c3f22af4647955d1d..f1b27ca2fa5442d33d2c622852c7615e854bab0c 100644 --- a/R/MultivarRMSE.R +++ b/R/MultivarRMSE.R @@ -65,7 +65,7 @@ MultivarRMSE <- function(data, weight=NULL) { if (is.null(weight)) { weight <- c(rep(1, nvar)) } else if (length(weight) != nvar) { - stop("Parameter 'weigth' must have a length equal to the number of variables.") + stop("Parameter 'weight' must have a length equal to the number of variables.") } mvrmse <- 0 diff --git a/man/AnoMultiMetric.Rd b/man/AnoMultiMetric.Rd index 0071a721782bc84bc84eb87fdaf9fc2f869f5c86..77a1f6ac3bc03f0cc577adb9d61ea99cfff16d6a 100644 --- a/man/AnoMultiMetric.Rd +++ b/man/AnoMultiMetric.Rd @@ -12,7 +12,7 @@ AnoMultiMetric(data, metric = "correlation", multimodel = TRUE, \item{metric}{a character string giving the metric for computing the maximum skill. This must be one of the strings 'correlation', 'rms' or 'rmsss.} -\item{multimodel}{a logical value indicating wether a Multi-Model Mean should be computed.} +\item{multimodel}{a logical value indicating whether a Multi-Model Mean should be computed.} \item{names}{a character vector indicating the names of the models to be compared.} }