rm(list=ls(all=TRUE))  # clear all variables
graphics.off()  # clear all graphics
# Visual anchoring effects
# Between subjects ANOVAs

# load the BayesFactor library
library(BayesFactor)
source("BF2N.R")


# Summary statistics of t-tests for anchoring effect for for doorway conditions
tValues <-c(2.52, 2.32, 2.07, 2.44, 2.03, 2.03, 10.44)
N1 <-c(200, 200, 200, 200, 200, 400, 250)
N2 <-c(200, 200, 200, 200, 200, 400, 250)

for (i in c(1:6)) {

#	BFt <- ttest.tstat(tValues[i], N1[i], N2[i], rscale=1, simple=TRUE)
	BFt <- BF2N(tValues[i], N1[i], N2[i])

	cat(tValues[i], N1[i], N2[i], BFt, sep=" ", "\n")
	flush.console()

}

# Meta-Bayes Factor

metaBF <- BF2N(tValues[1:6], N1[1:6], N2[1:6])


cat(metaBF,"\n")