fix error in calc R Squarded

Kss2k · Dec 8, 2024 · b47e4e0 · b47e4e0
1 parent f9cecc6
commit b47e4e0
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -20,10 +20,9 @@ warnif <- function(cond, ...) {
 
 # utils for all methods
 calcCovParTable <- function(x, y, parTable, measurement.model = FALSE) {
-  parTable$mod <- as.character(parTable$est)
+  parTable$mod <- paste0("(", as.character(parTable$est), ")")
   parTable <- parTable[c("lhs", "op", "rhs", "mod")]
-  eval(parse(text = trace_path(parTable, x, y,
-                              measurement.model = measurement.model)))
+  eval(parse(text = trace_path(parTable, x, y, measurement.model = measurement.model)))
 }