tests/testthat/test_application6_BF.mlm_correlations.R

In jomulder/BFpack: Flexible Bayes Factor Testing of Scientific Expectations

set.seed(123)
#check results
test_that("correlation test on cor_test object with two groups correctly evaluated", {
  skip_on_cran()
  #split data frame in two data frame for each group
  memoryHC <- subset(memory,Group=="HC")[,-(4:7)]
  memorySZ <- subset(memory,Group=="SZ")[,-(4:7)]
  cor1 <- cor_test(memoryHC,memorySZ)
  BF6_cor <- BF(cor1, hypothesis=
    "Del_with_Im_in_g1 > Del_with_Im_in_g2 &
    Del_with_Wmn_in_g1 > Del_with_Wmn_in_g2 &
    Im_with_Wmn_in_g1 > Im_with_Wmn_in_g2")
  expect_equivalent(
    log(BF6_cor$BFmatrix_confirmatory[1,2]), 5.0, tolerance = .5
)})