fix order of models in lav_update_test_custom_h1()

yrosseel · Jun 17, 2024 · accab8f · accab8f
1 parent c019429
commit accab8f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/lav_test.R b/R/lav_test.R
@@ -715,8 +715,8 @@ lav_update_test_custom_h1 <- function(lav_obj_h0, lav_obj_h1) {
   newTEST <- lav_obj_h0@test
 
   ## assemble a call to lavTestLRT()
-  lrtCallTemplate <- list(quote(lavTestLRT), object = quote(lav_obj_h1),
-                          quote(lav_obj_h0)) # in ...
+  lrtCallTemplate <- list(quote(lavTestLRT), object = quote(lav_obj_h0),
+                          quote(lav_obj_h1)) # in ...
 
   ## can only update tests available in both objects
   testNames0 <- names(lav_obj_h0@test)