Update fit_and_reporting.R

finalise`umxAPA` html report for lm
tbates · Dec 27, 2024 · e7a2035 · e7a2035
1 parent a68b1d7
commit e7a2035
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/fit_and_reporting.R b/R/fit_and_reporting.R
@@ -4669,7 +4669,9 @@ umxAPA <- function(obj = .Last.value, se = NULL, p = NULL, std = FALSE, digits =
 			obj = update(obj, data = umx_scale(obj$model))
 		}
 		if(report=="html"){
-			umx_print(summary(obj)$coefficients, digits= digits, report = "html")
+			tmp= data.frame(summary(obj)$coefficients)
+			names(tmp)= c("Estimate", "SE", "t-value", "p-value")
+			umx_print(tmp, digits= digits, report = "html")
 		} else {
 			sumry = summary(obj)
 			conf  = confint(obj)