compare bayesfactor models in R with the random baseline

compbf.R

# compares bayesfactor analyses relative to the last, which is the random only model (just participants)
compbf <- function(m) { 
  m[c(1:(length(m)-1))]/m[length(m)] 
}