R/RDC.R

Defines functions RDC

Documented in RDC

RDC <- function(GMask, Y){
  Y <- as.factor(Y)
  levels(Y) = c(1,2)
  Relative.DC <- max.col(cbind(rowSums(GMask[,Y == 1])/sum(Y == 1), rowSums(GMask[,Y == 2])/sum(Y == 2)))
  return(Relative.DC)
}

Try the propOverlap package in your browser

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

propOverlap documentation built on May 1, 2019, 10:55 p.m.