R/dist2All.R

In Mthrun/Distances: Functions For Different Distance Measures

dist2All <- function (x, data, defined = rep(1, length(x)), distance = "euclidean") {
  # author: Raphael Paebst
  #1.editor MCT
  requireNamespace('parallelDist')
 # warning('Not verified, may not work properly. Please check results')
xData <- rbind(x, data)
xData <- xData[, which( defined == 1)]
distToAll <- as.vector(parallelDist::parallelDist(xData, method = distance))[1:nrow(data)]

return( distToAll = distToAll)
}