From 5aae5f695b95610271b3ece54470dea2beb45453 Mon Sep 17 00:00:00 2001
From: TDJorgensen <TJorgensen314@gmail.com>
Date: Thu, 20 Jun 2024 16:56:26 +0200
Subject: [PATCH] remove redundant scaled.shifted setting from
 lav_update_test_custom_h1()

---
 R/lav_test.R | 1 -
 1 file changed, 1 deletion(-)

diff --git a/R/lav_test.R b/R/lav_test.R
index 24fe9af1..bf9de45d 100644
--- a/R/lav_test.R
+++ b/R/lav_test.R
@@ -734,7 +734,6 @@ lav_update_test_custom_h1 <- function(lav_obj_h0, lav_obj_h1) {
         lrtCall$method <- "mean.var.adjusted.PLRT"
       } else {
         lrtCall$method <- "satorra.2000"
-        if (tn == "mean.var.adjusted") lrtCall$scaled.shifted <- FALSE
       }
       lrtCall$scaled.shifted <- tn == "scaled.shifted"
     } else if (tn %in% c("satorra.bentler",