pair.BayesFactor <- function(x){
BF <- matrix(ncol = length(x), nrow = length(x))
for(i in 1:length(x)) {
# i <- 1
.x <- x[i]
BF[, i] <- BayesFactor(x, .x)
}
colnames(BF) <- rownames(BF) <- names(x)
return(BF)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.