Suitably complain about anova with only 1 model

OpenMx · Jul 21, 2017 · 9e85875 · 9e85875
1 parent e9743f3
commit 9e85875
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git a/R/MxCompare.R b/R/MxCompare.R
@@ -139,6 +139,10 @@ anova.MxModel <- function(object, ...) {
 	}
 
 	comparison <- args
+	if (length(comparison) == 0) {
+		stop(paste("Compare model",omxQuotes(object$name),
+			   "with which other models?"))
+	}
 	if(!all(sapply(comparison, is, "MxModel"))) {
 		stop("The '...' argument must consist of MxModel objects")
 	}

diff --git a/inst/models/nightly/BootLRT.R b/inst/models/nightly/BootLRT.R
@@ -32,6 +32,9 @@ cmp3 <- mxRun(cmp3)
 
 mxCompare(base, cmp1)  # p=0
 
+omxCheckError(anova(cmp1),
+	      "Compare model 'cmp1' with which other models?")
+
 pgot <- anova(cmp1, cmp2, cmp3, base)
 omxCheckEquals(is.na(pgot[,'p']), c(T,F,T,T))