speed improvement

strengejacke · strengejacke · commit 20b8435ecd94 · 2025-10-15T15:21:53.000+02:00
diff --git a/R/standard_error_kenward.R b/R/standard_error_kenward.R
@@ -5,8 +5,8 @@ se_kenward <- function(model) {
     model <- stats::update(model, . ~ ., REML = TRUE)
   }
 
-  dof <- insight::get_df(model, "kenward")
+  vcov_adjusted <- insight::get_varcov(model, vcov = "kenward-roger")
   params <- insight::get_parameters(model, effects = "fixed", component)
 
-  .data_frame(Parameter = params$Parameter, SE = attributes(dof)$se)
+  .data_frame(Parameter = params$Parameter, SE = abs(sqrt(diag(vcov_adjusted))))
 }

Original file line number	Diff line number	Diff line change
`@@ -5,8 +5,8 @@ se_kenward <- function(model) {`
`5`	`5`	`model <- stats::update(model, . ~ ., REML = TRUE)`
`6`	`6`	`}`
`7`	`7`
`8`		`- dof <- insight::get_df(model, "kenward")`
	`8`	`+ vcov_adjusted <- insight::get_varcov(model, vcov = "kenward-roger")`
`9`	`9`	`params <- insight::get_parameters(model, effects = "fixed", component)`
`10`	`10`
`11`		`- .data_frame(Parameter = params$Parameter, SE = attributes(dof)$se)`
	`11`	`+ .data_frame(Parameter = params$Parameter, SE = abs(sqrt(diag(vcov_adjusted))))`
`12`	`12`	`}`