R/uppertri.R

Defines functions uppertri

uppertri <- function(x) {
  if (is.null(x))
    return(NULL)
  ##
  x <- t(x)
  x[lower.tri(x)]
}
guido-s/netmeta documentation built on April 8, 2024, 5:31 a.m.