R/pairwise.rv.R

In mogsa: Multiple omics data integrative clustering and gene set analysis

Defines functions pairwise.rv

Documented in pairwise.rv

pairwise.rv <- function(data.list, match="col") {
	if (match %in% "row")
		data.list <- lapply(data.list, t)
  ms <- sapply(data.list, function(x) {
    x <- c(crossprod(as.matrix(x)))
    x <- x/sqrt(sum(x^2))})
  m <- crossprod(ms)
  colnames(m) <- rownames(m) <- names(data.list)
  return(m)
}

Try the mogsa package in your browser