mvt_fmri <- mvt_test(fmri[,1:2],null = c(0,0))
BF(mvt_fmri)
# the same test can be executed via the lm() function
intercept <- rep(1,nrow(fmri))
lm1 <- lm(cbind(Face,Vehicle) ~ -1 + intercept, data=fmri)
BF(lm1,hypothesis="intercept_on_Face=intercept_on_Vehicle=0")
Run the code above in your browser using DataLab