R/pair.diff.R

Defines functions pair.diff

pair.diff <- function(x){
  df <- matrix(ncol = length(x), nrow = length(x))
  for(i in 1:length(x)) {
    # i <- 1
    .x <- c(x[[i]])
    df[, i] <- t(x - .x)
  }
  colnames(df) <- rownames(df) <- names(x)
  return(df)
}
manabusakamoto/evoldiver documentation built on March 9, 2024, 9:56 a.m.