NEW: API

DESCRIPTION

@@ -53,7 +53,7 @@ Depends:
 Imports:
     bayestestR (>= 0.10.5),
     insight (>= 0.14.3),
-    parameters (>= 0.15.0),
+    parameters (>= 0.15.0.1),
     performance (>= 0.8.0),
     datawizard (>= 0.2.0),
     stats,
@@ -85,6 +85,8 @@ Suggests:
     spelling,
     testthat,
     tidymodels
+Remotes:
+    easystats/parameters
 VignetteBuilder: 
     knitr
 Encoding: UTF-8

NAMESPACE

@@ -49,6 +49,9 @@ S3method(standardize_parameters,default)
 S3method(standardize_parameters,mediate)
 S3method(standardize_parameters,model_fit)
 S3method(standardize_parameters,parameters_model)
+export(.es_aov_simple)
+export(.es_aov_strata)
+export(.es_aov_table)
 export(F_to_d)
 export(F_to_epsilon2)
 export(F_to_eta2)

R/docs_extra.R

@@ -141,3 +141,12 @@
 #' @rdname effectsize_CIs
 #' @name effectsize_CIs
 NULL
+
+
+#' `effectsize` API
+#'
+#' Read the [*Support functions for model extensions*](https://easystats.github.io/effectsize/articles/effectsize_API.html) vignette.
+#'
+#' @rdname effectsize_API
+#' @name effectsize_API
+NULL

R/effectsize.BFBayesFactor.R

@@ -52,7 +52,7 @@ effectsize.BFBayesFactor <- function(model, type = NULL, verbose = TRUE, test =
       mu <- 0
       D <- samps$delta
     } else {
-      mu <- as.numeric(gsub("Null, mu=", "", model@denominator@shortName))
+      mu <- model@numerator[[1]]@prior$mu
       D <- (samps$mu - mu) / sqrt(samps$sig2)
     }