R/cmna.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Removes columns and rows from correlation matrix with many NAs
#'
#' @param data correlation matrix
#'
#' @return
#' @export
#'
#'
cmna <- function(data) {

  v <- apply(data, 1, FUN = function(x) {sum(is.na(x)) != ncol(data) - 1})

  data[v, v]

}