R/dEuclid2.R

In goProfiles: goProfiles: an R package for the statistical analysis of functional profiles

Defines functions dEuclid2.BasicGOProfile dEuclid2.default dEuclid2

dEuclid2 <- function(x, y) {
  UseMethod("dEuclid2")
}

dEuclid2.default <- function(x, y) {
  return(sum((x-y)^2))
}

dEuclid2.BasicGOProfile <- function(x, y) {
  return(sum((x[,3]/ngenes(x) - y[,3]/ngenes(y))^2))
}

Try the goProfiles package in your browser