R/tri.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Reduces data frame to vector of lower triangle
#'
#' @param data data
#' @param diag include diagonal entries
#'
#' @return
#' @export
#'
#'
tri <- function(data, diag = F) {

  data[lower.tri(data, diag = diag)]

}