Added travis-ci support

.travis.yml

@@ -0,0 +1,6 @@
+
+language: r
+cache: packages
+warnings_are_errors: false
+before_install:
+  - cd pkg/BayesFactor

README.md

@@ -1,4 +1,5 @@
 [![DOI](https://zenodo.org/badge/6098/richarddmorey/BayesFactor.svg)](https://zenodo.org/badge/latestdoi/6098/richarddmorey/BayesFactor)
+[![Build Status](https://travis-ci.org/richarddmorey/BayesFactor.svg)](https://travis-ci.org/richarddmorey/BayesFactor)
 
 `BayesFactor` is an R package that enables the computation of Bayes factors in standard designs, such as one- and two- sample designs, ANOVA designs, regression, and analysis of contingency tables and proportions.
 

pkg/BayesFactor/inst/tests/test-anovaBF.R

@@ -1,11 +1,12 @@
+
 context("anovaBF")
 
 test_that("Puzzles example works", {
   data(puzzles)
-  
+
   bf = anovaBF(RT ~ shape*color + ID, data = puzzles, whichRandom = "ID",
                iterations=1000, progress = FALSE)
-  
+
   expect_that(bf, is_a("BFBayesFactor"))
   expect_that(length(bf), is_equivalent_to(4))
-})
+})

pkg/BayesFactor/inst/tests/test-generalTestBF.R

@@ -0,0 +1,8 @@
+
+context('generalTestBF')
+
+data(puzzles)
+
+test_that('generalTestBF works', {
+  generalTestBF(RT ~ shape*color*ID, whichRandom="ID", data = puzzles)
+})

pkg/BayesFactor/inst/tests/test-ttest.R

@@ -0,0 +1,27 @@
+
+context('t-test')
+
+data('ToothGrowth')
+
+test_that('ttest works', {
+    ttestBF(ToothGrowth$len, ToothGrowth$dose)
+    ttestBF(formula=len~supp, data=ToothGrowth)
+})
+
+test_that('rejects bad input', {
+    expect_error(
+        ttestBF(formula=len~dose, data=ToothGrowth),
+        'Indep. groups t test requires a factor with exactly 2 levels.',
+        fixed=TRUE
+    )
+    expect_error(
+        ttestBF(formula=len~dose+supp, data=ToothGrowth),
+        'Indep. groups t test can only support 1 factor as predictor.',
+        fixed=TRUE
+    )
+    expect_error(
+        ttestBF(formula=len~dose:supp, data=ToothGrowth),
+        'Interaction terms are not allowed in t test.',
+        fixed=TRUE
+    )
+})