R/targetF.R

Defines functions targetF

Documented in targetF

targetF <-
function(x,genegroups) {
  covm <- cov(x)
  corm <- cor(x)
  var.only <- covm/corm
  diag(corm) <- 0
  cora  <- sum(corm)/sum(corm!=0)
  T <- cora*var.only
  diag(T)<- diag(covm)
  T
}

Try the SHIP package in your browser

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

SHIP documentation built on May 29, 2017, 11:25 a.m.