R/vecDistance.r

#' Function vecDistance
#' 
#' @export
vecDistance <- function (a, b) 
sqrt(sum(sapply(1:length(a), function(i) (a[i] - b[i])^2)))
AndreasFischer1985/threeD documentation built on June 4, 2023, 1:29 a.m.