Skip to content
This repository has been archived by the owner on Jun 25, 2021. It is now read-only.

Commit

Permalink
fix test
Browse files Browse the repository at this point in the history
  • Loading branch information
IndrajeetPatil committed Jan 16, 2021
1 parent 13e8511 commit 1943bdf
Show file tree
Hide file tree
Showing 3 changed files with 17 additions and 18 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
Expand Up @@ -30,7 +30,7 @@ Imports:
ipmisc (>= 5.0.2),
metaBMA (>= 0.6.6),
parameters (>= 0.11.0),
performance (>= 0.6.1.1),
performance,
rlang,
tidyr
Suggests:
Expand Down
3 changes: 1 addition & 2 deletions codemeta.json
Original file line number Diff line number Diff line change
Expand Up @@ -217,7 +217,6 @@
"@type": "SoftwareApplication",
"identifier": "performance",
"name": "performance",
"version": ">= 0.6.1.1",
"provider": {
"@id": "https://cran.r-project.org",
"@type": "Organization",
Expand Down Expand Up @@ -266,7 +265,7 @@
"name": "Comprehensive R Archive Network (CRAN)",
"url": "https://cran.r-project.org"
},
"fileSize": "1734.215KB",
"fileSize": "1734.323KB",
"citation": [
{
"@type": "ScholarlyArticle",
Expand Down
30 changes: 15 additions & 15 deletions tests/testthat/test-bf_oneway_anova.R
Original file line number Diff line number Diff line change
Expand Up @@ -25,7 +25,7 @@ test_that(
x = vore,
y = "brainwt",
bf.prior = 0.88,
k = 3,
k = 2, # don't change; tests fail on Ubuntu otherwise
output = "expression"
)

Expand All @@ -38,10 +38,10 @@ test_that(
results,
ggplot2::expr(
paste(
"log"["e"] * "(BF"["01"] * ") = " * "1.916" * ", ",
widehat(italic(R^"2"))["median"]^"posterior" * " = " * "0.000" * ", ",
"CI"["95%"]^"HDI" * " [" * "0.000" * ", " * "0.084" * "], ",
italic("r")["Cauchy"]^"JZS" * " = " * "0.880"
"log"["e"] * "(BF"["01"] * ") = " * "1.92" * ", ",
widehat(italic(R^"2"))["median"]^"posterior" * " = " * "0.00" * ", ",
"CI"["95%"]^"HDI" * " [" * "0.00" * ", " * "0.08" * "], ",
italic("r")["Cauchy"]^"JZS" * " = " * "0.88"
)
)
)
Expand All @@ -56,17 +56,17 @@ test_that(
conf.level = 0.99,
conf.method = "eti",
output = "expression",
k = 3
k = 2 # don't change; tests fail on Ubuntu otherwise
)

expect_identical(
results2,
ggplot2::expr(
paste(
"log"["e"] * "(BF"["01"] * ") = " * "-65.097" * ", ",
widehat(italic(R^"2"))["median"]^"posterior" * " = " * "0.612" * ", ",
"CI"["99%"]^"HDI" * " [" * "0.511" * ", " * "0.679" * "], ",
italic("r")["Cauchy"]^"JZS" * " = " * "0.707"
"log"["e"] * "(BF"["01"] * ") = " * "-65.10" * ", ",
widehat(italic(R^"2"))["median"]^"posterior" * " = " * "0.61" * ", ",
"CI"["99%"]^"HDI" * " [" * "0.51" * ", " * "0.68" * "], ",
italic("r")["Cauchy"]^"JZS" * " = " * "0.71"
)
)
)
Expand Down Expand Up @@ -140,7 +140,7 @@ test_that(
data = dat,
x = "Wine",
y = Taste,
k = 4,
k = 2, # don't change; tests fail on Ubuntu otherwise
paired = TRUE,
bf.prior = 0.88,
output = "expression"
Expand All @@ -166,10 +166,10 @@ test_that(
results,
ggplot2::expr(
paste(
"log"["e"] * "(BF"["01"] * ") = " * "-1.9580" * ", ",
widehat(italic(R^"2"))["median"]^"posterior" * " = " * "0.8932" * ", ",
"CI"["95%"]^"HDI" * " [" * "0.8473" * ", " * "0.9202" * "], ",
italic("r")["Cauchy"]^"JZS" * " = " * "0.8800"
"log"["e"] * "(BF"["01"] * ") = " * "-1.96" * ", ",
widehat(italic(R^"2"))["median"]^"posterior" * " = " * "0.89" * ", ",
"CI"["95%"]^"HDI" * " [" * "0.85" * ", " * "0.92" * "], ",
italic("r")["Cauchy"]^"JZS" * " = " * "0.88"
)
)
)
Expand Down

0 comments on commit 1943bdf

Please sign in to comment.