R/dist2AllRD.R

In Mthrun/Distances: Functions For Different Distance Measures

Defines functions dist2AllRD

Documented in dist2AllRD

dist2AllRD <- function(x, data, defined = rep(1, length(x))) {

defined[which(defined != 1)] <- 0
dim <- sum(defined)
dv <- relDistance2All(x, data, defined)
dv <- (rep(dim, length(dv)) - dv) / dim 

return(dv = dv)
}