tests/testthat/test-bayes_cor_test.R

In rasmusab/bayesian_first_aid: Bayesian replacements for the most commonly used statistical tests in R.

context("bayes.cor.test")


test_that("the jags_cor_test function returns an 'mcmc.list' objects", {
  x1 <- rnorm(10)
  x2 <- rnorm(10, mean=1, sd=2)
  
  expect_that(jags_cor_test(x1, x2, n.update=9, n.iter=9), is_a("mcmc.list"))
})

test_that("the bayes.cor.test function returns a bayes_cor_test object", {
  x1 <- rnorm(10)
  x2 <- rnorm(10, mean=1, sd=2)
  d <- data.frame(x1 = x1, x2 = x2)
  
  
  expect_that(bayes.cor.test(x1, x2, n.iter=30), is_a("bayes_cor_test"))
  expect_that(bayes.cor.test(~ x1 + x2, data=d, n.iter=30), is_a("bayes_cor_test"))
})

test_that("bayes.cor.test with generic functions does not give an error when run", {
  x1 <- rnorm(10)
  x2 <- rnorm(10, mean=1, sd=2)
  d <- data.frame(x1 = x1, x2 = x2)
  
  
  fit <- bayes.cor.test(x1, x2, n.iter=200)
  expect_output(print(fit), ".")
  expect_output(summary(fit), ".")
  expect_is(summary(fit), "matrix")
  expect_output(diagnostics(fit), ".")
  expect_true({plot(fit); TRUE})
  expect_output( eval(parse(text=capture.output(model.code(fit)))) , ".")
  expect_is(as.data.frame(fit), "data.frame")
  expect_is(as.matrix(fit), "matrix")
})