R/uppertri.R

Defines functions uppertri

uppertri <- function(x) {
  if (is.null(x))
    return(NULL)
  ##
  x <- t(x)
  x[lower.tri(x)]
}

Try the netmeta package in your browser

Any scripts or data that you put into this service are public.

netmeta documentation built on May 31, 2023, 5:45 p.m.