R/MinDistFunc.r

Defines functions MinDistFunc

MinDistFunc = function(vec, mat) {
  DistVec = rep(0, dim(mat)[1])
  for (i in 1:dim(mat)[1]){
    DistVec[i] = norm(t(vec) - mat[i,], type = "F")
  }
  return(which.min(DistVec))
}
hankuipeng/HKCluster documentation built on May 27, 2019, 8:45 a.m.