R/pair.BayesFactor.R

Defines functions pair.BayesFactor

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)
}
manabusakamoto/evoldiver documentation built on March 9, 2024, 9:56 a.m.