From 909868280f88cca42a2f31f462fd4619436d683d Mon Sep 17 00:00:00 2001 From: Laura Marshall Date: Mon, 23 Jan 2017 12:40:28 +0000 Subject: [PATCH] Updated error message for double observer surveys --- mads/R/check.ddf.models.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/mads/R/check.ddf.models.R b/mads/R/check.ddf.models.R index 82df0b0..db3944e 100644 --- a/mads/R/check.ddf.models.R +++ b/mads/R/check.ddf.models.R @@ -81,7 +81,6 @@ check.ddf.models <- function(model.names, ddf.models){ for(sp in seq(along = model.names)){ #for every model for(m in seq(along = model.names[[sp]])){ - #method <- try(ddf.models[[model.names[[sp]][m]]]$method, silent = TRUE) method <- ddf.models[[model.names[[sp]][m]]]$method #CHECK MODEL EXISTS if(is.null(method)){ @@ -97,7 +96,7 @@ check.ddf.models <- function(model.names, ddf.models){ #unsupported <- which(!model.type%in%c("trial", "trial.fi", "io", "io.fi", "ds")) unsupported <- which(!model.type%in%c("ds")) if(length(unsupported) > 0){ - stop(paste("Unsupported model types have been selected: ",paste(model.type[unsupported], collapse = ", "), sep = ""), call. = FALSE) + stop(paste("Unsupported model types have been selected: ",paste(model.type[unsupported], collapse = ", "), ". Only single observer models are currently supported.", sep = ""), call. = FALSE) } if(length(double.observer) == length(model.type)){ double.observer <- TRUE