diff --git a/API b/API
index 2a7e722..cf9a11f 100644
--- a/API
+++ b/API
@@ -2,13 +2,13 @@
## Exported functions
-bf_contingency_tab(data, x, y = NULL, counts = NULL, ratio = NULL, sampling.plan = "indepMulti", fixed.margin = "rows", prior.concentration = 1, caption = NULL, output = "results", k = 2L, ...)
-bf_corr_test(data, x, y, bf.prior = 0.707, caption = NULL, output = "results", k = 2L, ...)
+bf_contingency_tab(data, x, y = NULL, counts = NULL, ratio = NULL, sampling.plan = "indepMulti", fixed.margin = "rows", prior.concentration = 1, caption = NULL, output = "dataframe", k = 2L, ...)
+bf_corr_test(data, x, y, bf.prior = 0.707, caption = NULL, output = "dataframe", k = 2L, ...)
bf_expr(bf.object, k = 2L, conf.level = 0.95, conf.method = "hdi", centrality = "median", output = "null", caption = NULL, anova.design = FALSE, ...)
bf_extractor(bf.object, ...)
-bf_meta(data, d = prior("norm", c(mean = 0, sd = 0.3)), tau = prior("invgamma", c(shape = 1, scale = 0.15)), k = 2L, output = "results", caption = NULL, messages = TRUE, ...)
-bf_oneway_anova(data, x, y, bf.prior = 0.707, caption = NULL, output = "results", paired = FALSE, k = 2L, ...)
-bf_ttest(data, x, y = NULL, test.value = 0, paired = FALSE, bf.prior = 0.707, caption = NULL, output = "results", k = 2L, ...)
+bf_meta(data, d = prior("norm", c(mean = 0, sd = 0.3)), tau = prior("invgamma", c(shape = 1, scale = 0.15)), k = 2L, output = "dataframe", caption = NULL, ...)
+bf_oneway_anova(data, x, y, bf.prior = 0.707, caption = NULL, output = "dataframe", paired = FALSE, k = 2L, ...)
+bf_ttest(data, x, y = NULL, test.value = 0, paired = FALSE, bf.prior = 0.707, caption = NULL, output = "dataframe", k = 2L, ...)
meta_data_check(data)
## Reexported objects
diff --git a/NEWS.md b/NEWS.md
index a20c095..1821f4a 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -9,6 +9,9 @@ BREAKING CHANGES
hypothesis (`BF10`) and its `log` value to avoid cluttered dataframe since
all the other columns were essentially mathematical transformations of it
and not really relevant.
+
+ - The `output` argument's default value has been changed from too generic
+ `"results"` to `"dataframe"`.
MAJOR CHANGES
diff --git a/R/bf_contingency_tab.R b/R/bf_contingency_tab.R
index 9907d0e..94b6295 100644
--- a/R/bf_contingency_tab.R
+++ b/R/bf_contingency_tab.R
@@ -82,7 +82,7 @@ bf_contingency_tab <- function(data,
fixed.margin = "rows",
prior.concentration = 1,
caption = NULL,
- output = "results",
+ output = "dataframe",
k = 2L,
...) {
@@ -230,7 +230,7 @@ bf_contingency_tab <- function(data,
# return the text results or the dataframe with results
return(switch(
EXPR = output,
- "results" = dplyr::select(df, -dplyr::matches("error|time|code")),
+ "dataframe" = dplyr::select(df, -dplyr::matches("error|time|code")),
bf_message
))
}
diff --git a/R/bf_corr_test.R b/R/bf_corr_test.R
index 59cd126..7537a9f 100644
--- a/R/bf_corr_test.R
+++ b/R/bf_corr_test.R
@@ -47,7 +47,7 @@ bf_corr_test <- function(data,
y,
bf.prior = 0.707,
caption = NULL,
- output = "results",
+ output = "dataframe",
k = 2L,
...) {
@@ -62,7 +62,7 @@ bf_corr_test <- function(data,
# return the text results or the dataframe with results
switch(
EXPR = output,
- "results" = bf_extractor(bf_object),
+ "dataframe" = bf_extractor(bf_object),
bf_expr(bf_object, k = k, output = output, caption = caption, ...)
)
}
diff --git a/R/bf_meta.R b/R/bf_meta.R
index a368274..6660e40 100644
--- a/R/bf_meta.R
+++ b/R/bf_meta.R
@@ -7,7 +7,6 @@
#' sizes or outcomes) and `std.error` (corresponding standard errors). These
#' two columns will be used for `yi` and `sei` arguments in `metafor::rma`
#' (for parametric analysis) or `metaplus::metaplus` (for robust analysis).
-#' @param messages Deprecated. Retained only for backward compatibility.
#' @inheritParams bf_expr
#' @inheritParams metaBMA::meta_random
#' @inheritDotParams metaBMA::meta_random -y -SE
@@ -48,7 +47,6 @@
#' data = df,
#' k = 3,
#' iter = 1500,
-#' messages = TRUE,
#' # customizing analysis with additional arguments
#' control = list(max_treedepth = 15)
#' )
@@ -61,9 +59,8 @@ bf_meta <- function(data,
d = prior("norm", c(mean = 0, sd = 0.3)),
tau = prior("invgamma", c(shape = 1, scale = 0.15)),
k = 2L,
- output = "results",
+ output = "dataframe",
caption = NULL,
- messages = TRUE,
...) {
# check the data contains needed column
@@ -72,7 +69,7 @@ bf_meta <- function(data,
#----------------------- meta-analysis -------------------------------
# extracting results from random-effects meta-analysis
- meta_res <-
+ mod <-
metaBMA::meta_random(
y = data$estimate,
SE = data$std.error,
@@ -84,12 +81,9 @@ bf_meta <- function(data,
#----------------------- preparing caption -------------------------------
# creating a dataframe with posterior estimates
- df_estimates <-
- as_tibble(meta_res$estimates, rownames = "term") %>%
- dplyr::filter(.data = ., term == "d")
-
- # dataframe with bayes factors
- df <- tibble(bf10 = meta_res$BF["random_H1", "random_H0"])
+ df <-
+ as_tibble(mod$estimates, rownames = "term") %>%
+ dplyr::mutate(.data = ., bf10 = mod$BF["random_H1", "random_H0"])
# changing aspects of the caption based on what output is needed
if (output %in% c("null", "caption", "H0", "h0")) {
@@ -127,16 +121,16 @@ bf_meta <- function(data,
top.text = caption,
bf.sub = bf.sub,
bf = specify_decimal_p(x = bf.value, k = k),
- d.pmean = specify_decimal_p(x = df_estimates$mean[[1]], k = k),
- d.pmean.LB = specify_decimal_p(x = df_estimates$hpd95_lower[[1]], k = k),
- d.pmean.UB = specify_decimal_p(x = df_estimates$hpd95_upper[[1]], k = k)
+ d.pmean = specify_decimal_p(x = df$mean[[1]], k = k),
+ d.pmean.LB = specify_decimal_p(x = df$hpd95_lower[[1]], k = k),
+ d.pmean.UB = specify_decimal_p(x = df$hpd95_upper[[1]], k = k)
)
)
# return the text results or the dataframe with results
return(switch(
EXPR = output,
- "results" = df,
+ "dataframe" = df,
bf_message
))
}
diff --git a/R/bf_oneway_anova.R b/R/bf_oneway_anova.R
index 356a7bf..e12becf 100644
--- a/R/bf_oneway_anova.R
+++ b/R/bf_oneway_anova.R
@@ -55,7 +55,7 @@ bf_oneway_anova <- function(data,
y,
bf.prior = 0.707,
caption = NULL,
- output = "results",
+ output = "dataframe",
paired = FALSE,
k = 2L,
...) {
@@ -112,7 +112,7 @@ bf_oneway_anova <- function(data,
# return the text results or the dataframe with results
switch(
EXPR = output,
- "results" = bf_extractor(bf_object),
+ "dataframe" = bf_extractor(bf_object),
bf_expr(bf_object, k = k, output = output, caption = caption, anova.design = TRUE, ...)
)
}
diff --git a/R/bf_ttest.R b/R/bf_ttest.R
index 1a19ce5..5e07e7d 100644
--- a/R/bf_ttest.R
+++ b/R/bf_ttest.R
@@ -54,7 +54,7 @@ bf_ttest <- function(data,
paired = FALSE,
bf.prior = 0.707,
caption = NULL,
- output = "results",
+ output = "dataframe",
k = 2L,
...) {
@@ -118,7 +118,7 @@ bf_ttest <- function(data,
# return the text results or the dataframe with results
switch(
EXPR = output,
- "results" = bf_extractor(bf_object),
+ "dataframe" = bf_extractor(bf_object),
bf_expr(bf_object, k = k, output = output, caption = caption, ...)
)
}
diff --git a/R/helpers_bf_tests.R b/R/helpers_bf_tests.R
index 9f6cc1c..6d41e87 100644
--- a/R/helpers_bf_tests.R
+++ b/R/helpers_bf_tests.R
@@ -66,7 +66,7 @@ bf_extractor <- function(bf.object, ...) {
#' which will return expression with evidence in favor of the null hypothesis,
#' or `"alternative"` (or `"title"` or `"H1"` or `"h1"`), which will return
#' expression with evidence in favor of the alternative hypothesis, or
-#' `"results"`, which will return a dataframe with results all the details).
+#' `"dataframe"`, which will return a dataframe with results all the details).
#' @param anova.design Whether the object is from `BayesFactor::anovaBF`
#' (default: `FALSE`). The expression is different for anova designs because
#' not all details are available.
diff --git a/codemeta.json b/codemeta.json
index c9ae578..3d7af16 100644
--- a/codemeta.json
+++ b/codemeta.json
@@ -229,5 +229,5 @@
"name": "Comprehensive R Archive Network (CRAN)",
"url": "https://cran.r-project.org"
},
- "fileSize": "1655.411KB"
+ "fileSize": "1659.995KB"
}
diff --git a/docs/news/index.html b/docs/news/index.html
index 1ae1ca4..39f97a6 100644
--- a/docs/news/index.html
+++ b/docs/news/index.html
@@ -132,6 +132,7 @@
MAJOR CHANGES
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
index 710c434..48a21b8 100644
--- a/docs/pkgdown.yml
+++ b/docs/pkgdown.yml
@@ -2,7 +2,7 @@ pandoc: '2.11'
pkgdown: 1.6.1
pkgdown_sha: ~
articles: {}
-last_built: 2020-10-14T08:30Z
+last_built: 2020-10-14T21:22Z
urls:
reference: https://indrajeetpatil.github.io/tidyBF//reference
article: https://indrajeetpatil.github.io/tidyBF//articles
diff --git a/docs/reference/bf_contingency_tab.html b/docs/reference/bf_contingency_tab.html
index d923122..50b59e1 100644
--- a/docs/reference/bf_contingency_tab.html
+++ b/docs/reference/bf_contingency_tab.html
@@ -207,7 +207,7 @@ Arg
which will return expression with evidence in favor of the null hypothesis,
or "alternative"
(or "title"
or "H1"
or "h1"
), which will return
expression with evidence in favor of the alternative hypothesis, or
-"results"
, which will return a dataframe with results all the details).
+"dataframe"
, which will return a dataframe with results all the details).
k |
diff --git a/docs/reference/bf_corr_test.html b/docs/reference/bf_corr_test.html
index 5a541ea..1c01bbd 100644
--- a/docs/reference/bf_corr_test.html
+++ b/docs/reference/bf_corr_test.html
@@ -136,7 +136,7 @@ Bayesian correlation test.
y,
bf.prior = 0.707,
caption = NULL,
- output = "results",
+ output = "dataframe",
k = 2L,
...
)
@@ -177,7 +177,7 @@ Arg
which will return expression with evidence in favor of the null hypothesis,
or "alternative"
(or "title"
or "H1"
or "h1"
), which will return
expression with evidence in favor of the alternative hypothesis, or
-"results"
, which will return a dataframe with results all the details).
+"dataframe"
, which will return a dataframe with results all the details).
k |
diff --git a/docs/reference/bf_expr.html b/docs/reference/bf_expr.html
index 0ee49d3..9a5e086 100644
--- a/docs/reference/bf_expr.html
+++ b/docs/reference/bf_expr.html
@@ -179,7 +179,7 @@ Arg
which will return expression with evidence in favor of the null hypothesis,
or "alternative"
(or "title"
or "H1"
or "h1"
), which will return
expression with evidence in favor of the alternative hypothesis, or
-"results"
, which will return a dataframe with results all the details).
+"dataframe"
, which will return a dataframe with results all the details).
caption |
diff --git a/docs/reference/bf_meta.html b/docs/reference/bf_meta.html
index 005d05c..29d937f 100644
--- a/docs/reference/bf_meta.html
+++ b/docs/reference/bf_meta.html
@@ -135,9 +135,8 @@ Bayes factor for random-effects meta-analysis
d = prior("norm", c(mean = 0, sd = 0.3)),
tau = prior("invgamma", c(shape = 1, scale = 0.15)),
k = 2L,
- output = "results",
+ output = "dataframe",
caption = NULL,
- messages = TRUE,
...
)
@@ -174,17 +173,13 @@ Arg
which will return expression with evidence in favor of the null hypothesis,
or "alternative"
(or "title"
or "H1"
or "h1"
), which will return
expression with evidence in favor of the alternative hypothesis, or
-"results"
, which will return a dataframe with results all the details).
+"dataframe"
, which will return a dataframe with results all the details).
caption |
Text to display as caption (will be displayed on top of the
Bayes Factor caption/message). |
-
- messages |
- Deprecated. Retained only for backward compatibility. |
-
... |
Arguments passed on to metaBMA::meta_random
@@ -264,16 +259,20 @@ Examp
data = df,
k = 3,
iter = 1500,
- messages = TRUE,
# customizing analysis with additional arguments
control = list(max_treedepth = 15)
)
#> Warning: There were 2 divergent transitions after warmup. See
#> http://mc-stan.org/misc/warnings.html#divergent-transitions-after-warmup
-#> to find out why this is a problem and how to eliminate them. #> Warning: Examine the pairs() plot to diagnose sampling problems #> # A tibble: 1 x 1
+#> to find out why this is a problem and how to eliminate them. #> Warning: Examine the pairs() plot to diagnose sampling problems #> # A tibble: 2 x 11
+#> term mean sd `2.5%` `50%` `97.5%` hpd95_lower hpd95_upper n_eff Rhat
+#> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
+#> 1 d 0.535 0.119 0.273 0.544 0.751 0.287 0.762 682. 1.00
+#> 2 tau 0.277 0.118 0.133 0.249 0.602 0.119 0.518 431. 1.00
#> bf10
#> <dbl>
-#> 1 28.2 # }
+#> 1 28.2
+#> 2 28.2 # }
diff --git a/docs/reference/bf_oneway_anova.html b/docs/reference/bf_oneway_anova.html
index a503335..56400a3 100644
--- a/docs/reference/bf_oneway_anova.html
+++ b/docs/reference/bf_oneway_anova.html
@@ -136,7 +136,7 @@ Bayesian one-way analysis of variance
y,
bf.prior = 0.707,
caption = NULL,
- output = "results",
+ output = "dataframe",
paired = FALSE,
k = 2L,
...
@@ -175,7 +175,7 @@ Arg
which will return expression with evidence in favor of the null hypothesis,
or "alternative" (or "title" or "H1" or "h1" ), which will return
expression with evidence in favor of the alternative hypothesis, or
-"results" , which will return a dataframe with results all the details). |
+"dataframe"
, which will return a dataframe with results all the details).
paired |
diff --git a/docs/reference/bf_ttest.html b/docs/reference/bf_ttest.html
index c42564a..1d255f4 100644
--- a/docs/reference/bf_ttest.html
+++ b/docs/reference/bf_ttest.html
@@ -138,7 +138,7 @@ Bayes Factor for t-test
paired = FALSE,
bf.prior = 0.707,
caption = NULL,
- output = "results",
+ output = "dataframe",
k = 2L,
...
)
@@ -188,7 +188,7 @@ Arg
which will return expression with evidence in favor of the null hypothesis,
or "alternative"
(or "title"
or "H1"
or "h1"
), which will return
expression with evidence in favor of the alternative hypothesis, or
-"results"
, which will return a dataframe with results all the details).
+"dataframe"
, which will return a dataframe with results all the details).
k |
diff --git a/man/bf_contingency_tab.Rd b/man/bf_contingency_tab.Rd
index f63d363..f93df7a 100644
--- a/man/bf_contingency_tab.Rd
+++ b/man/bf_contingency_tab.Rd
@@ -14,7 +14,7 @@ bf_contingency_tab(
fixed.margin = "rows",
prior.concentration = 1,
caption = NULL,
- output = "results",
+ output = "dataframe",
k = 2L,
...
)
@@ -59,7 +59,7 @@ Bayes Factor caption/message).}
which will return expression with evidence in favor of the null hypothesis,
or \code{"alternative"} (or \code{"title"} or \code{"H1"} or \code{"h1"}), which will return
expression with evidence in favor of the alternative hypothesis, or
-\code{"results"}, which will return a dataframe with results all the details).}
+\code{"dataframe"}, which will return a dataframe with results all the details).}
\item{k}{Number of digits after decimal point (should be an integer)
(Default: \code{k = 2L}).}
diff --git a/man/bf_corr_test.Rd b/man/bf_corr_test.Rd
index 52dbe59..81659c2 100644
--- a/man/bf_corr_test.Rd
+++ b/man/bf_corr_test.Rd
@@ -10,7 +10,7 @@ bf_corr_test(
y,
bf.prior = 0.707,
caption = NULL,
- output = "results",
+ output = "dataframe",
k = 2L,
...
)
@@ -37,7 +37,7 @@ Bayes Factor caption/message).}
which will return expression with evidence in favor of the null hypothesis,
or \code{"alternative"} (or \code{"title"} or \code{"H1"} or \code{"h1"}), which will return
expression with evidence in favor of the alternative hypothesis, or
-\code{"results"}, which will return a dataframe with results all the details).}
+\code{"dataframe"}, which will return a dataframe with results all the details).}
\item{k}{Number of digits after decimal point (should be an integer)
(Default: \code{k = 2L}).}
diff --git a/man/bf_expr.Rd b/man/bf_expr.Rd
index 2de7f8b..e2e6a37 100644
--- a/man/bf_expr.Rd
+++ b/man/bf_expr.Rd
@@ -37,7 +37,7 @@ Character (vector) or list with one or more of these options: \code{"median"},
which will return expression with evidence in favor of the null hypothesis,
or \code{"alternative"} (or \code{"title"} or \code{"H1"} or \code{"h1"}), which will return
expression with evidence in favor of the alternative hypothesis, or
-\code{"results"}, which will return a dataframe with results all the details).}
+\code{"dataframe"}, which will return a dataframe with results all the details).}
\item{caption}{Text to display as caption (will be displayed on top of the
Bayes Factor caption/message).}
diff --git a/man/bf_meta.Rd b/man/bf_meta.Rd
index 693b5d4..58f4b79 100644
--- a/man/bf_meta.Rd
+++ b/man/bf_meta.Rd
@@ -9,9 +9,8 @@ bf_meta(
d = prior("norm", c(mean = 0, sd = 0.3)),
tau = prior("invgamma", c(shape = 1, scale = 0.15)),
k = 2L,
- output = "results",
+ output = "dataframe",
caption = NULL,
- messages = TRUE,
...
)
}
@@ -36,13 +35,11 @@ probability density function is defined via \code{\link[metaBMA]{prior}}.}
which will return expression with evidence in favor of the null hypothesis,
or \code{"alternative"} (or \code{"title"} or \code{"H1"} or \code{"h1"}), which will return
expression with evidence in favor of the alternative hypothesis, or
-\code{"results"}, which will return a dataframe with results all the details).}
+\code{"dataframe"}, which will return a dataframe with results all the details).}
\item{caption}{Text to display as caption (will be displayed on top of the
Bayes Factor caption/message).}
-\item{messages}{Deprecated. Retained only for backward compatibility.}
-
\item{...}{
Arguments passed on to \code{\link[metaBMA:meta_random]{metaBMA::meta_random}}
\describe{
@@ -114,7 +111,6 @@ bf_meta(
data = df,
k = 3,
iter = 1500,
- messages = TRUE,
# customizing analysis with additional arguments
control = list(max_treedepth = 15)
)
diff --git a/man/bf_oneway_anova.Rd b/man/bf_oneway_anova.Rd
index c2dcd2a..c716bf6 100644
--- a/man/bf_oneway_anova.Rd
+++ b/man/bf_oneway_anova.Rd
@@ -10,7 +10,7 @@ bf_oneway_anova(
y,
bf.prior = 0.707,
caption = NULL,
- output = "results",
+ output = "dataframe",
paired = FALSE,
k = 2L,
...
@@ -35,7 +35,7 @@ Bayes Factor caption/message).}
which will return expression with evidence in favor of the null hypothesis,
or \code{"alternative"} (or \code{"title"} or \code{"H1"} or \code{"h1"}), which will return
expression with evidence in favor of the alternative hypothesis, or
-\code{"results"}, which will return a dataframe with results all the details).}
+\code{"dataframe"}, which will return a dataframe with results all the details).}
\item{paired}{Decides whether the design is repeated measures or not
(Default: \code{FALSE}).}
diff --git a/man/bf_ttest.Rd b/man/bf_ttest.Rd
index 9a64acb..a35c53b 100644
--- a/man/bf_ttest.Rd
+++ b/man/bf_ttest.Rd
@@ -12,7 +12,7 @@ bf_ttest(
paired = FALSE,
bf.prior = 0.707,
caption = NULL,
- output = "results",
+ output = "dataframe",
k = 2L,
...
)
@@ -44,7 +44,7 @@ Bayes Factor caption/message).}
which will return expression with evidence in favor of the null hypothesis,
or \code{"alternative"} (or \code{"title"} or \code{"H1"} or \code{"h1"}), which will return
expression with evidence in favor of the alternative hypothesis, or
-\code{"results"}, which will return a dataframe with results all the details).}
+\code{"dataframe"}, which will return a dataframe with results all the details).}
\item{k}{Number of digits after decimal point (should be an integer)
(Default: \code{k = 2L}).}
diff --git a/tests/testthat/test-bf_contingency_tab.R b/tests/testthat/test-bf_contingency_tab.R
index 210ef5c..29c3e00 100644
--- a/tests/testthat/test-bf_contingency_tab.R
+++ b/tests/testthat/test-bf_contingency_tab.R
@@ -11,7 +11,7 @@ testthat::test_that(
bf_contingency_tab(
data = mtcars,
x = am,
- output = "results"
+ output = "dataframe"
)
# check bayes factor values
@@ -74,7 +74,7 @@ testthat::test_that(
y = cyl,
sampling.plan = "jointMulti",
fixed.margin = "rows",
- output = "results"
+ output = "dataframe"
)
# caption
diff --git a/tests/testthat/test-bf_corr_test.R b/tests/testthat/test-bf_corr_test.R
index 7761ed2..a5d3ec3 100644
--- a/tests/testthat/test-bf_corr_test.R
+++ b/tests/testthat/test-bf_corr_test.R
@@ -11,8 +11,7 @@ testthat::test_that(
bf_corr_test(
data = iris,
y = Sepal.Length,
- x = "Sepal.Width",
- output = "results"
+ x = "Sepal.Width"
)
# check bayes factor values
@@ -70,8 +69,7 @@ testthat::test_that(
bf_corr_test(
data = ggplot2::msleep,
y = names(ggplot2::msleep)[10],
- x = "sleep_rem",
- output = "results"
+ x = "sleep_rem"
)
# check bayes factor values
diff --git a/tests/testthat/test-bf_oneway_anova.R b/tests/testthat/test-bf_oneway_anova.R
index 16e23dd..3909642 100644
--- a/tests/testthat/test-bf_oneway_anova.R
+++ b/tests/testthat/test-bf_oneway_anova.R
@@ -30,7 +30,7 @@ testthat::test_that(
x = "vore",
y = brainwt,
bf.prior = 0.99,
- output = "results"
+ output = "dataframe"
)
# extracting caption - null
@@ -153,7 +153,7 @@ testthat::test_that(
y = "Taste",
paired = TRUE,
bf.prior = 0.99,
- output = "results"
+ output = "dataframe"
)
# extracting caption - null
diff --git a/tests/testthat/test-bf_ttest.R b/tests/testthat/test-bf_ttest.R
index d1a3adc..e75a078 100644
--- a/tests/testthat/test-bf_ttest.R
+++ b/tests/testthat/test-bf_ttest.R
@@ -23,8 +23,7 @@ testthat::test_that(
x = supp,
y = "len",
paired = FALSE,
- bf.prior = 0.99,
- output = "results"
+ bf.prior = 0.99
)
# check bayes factor values
@@ -69,8 +68,7 @@ testthat::test_that(
x = "condition",
y = desire,
paired = TRUE,
- bf.prior = 0.8,
- output = "results"
+ bf.prior = 0.8
)
# check bayes factor values
@@ -108,8 +106,7 @@ testthat::test_that(
x = Petal.Length,
y = NULL,
test.value = 5.5,
- bf.prior = 0.99,
- output = "results"
+ bf.prior = 0.99
)
# check Bayes factor values