R/dist2eu.R

Defines functions dist2eu

Documented in dist2eu

dist2eu <- function(X,C) {
  ndata = nrow(X)
  ncentres = nrow(C)

  res = matrix(0,ndata,ncentres)
  for (i in 1:ndata)
  {
    for (j in 1:ncentres)
    {
      res[i,j] = sum((X[i,]-C[j,])^2)
    }
  }
  return(res)
}

Try the OSNMTF package in your browser

Any scripts or data that you put into this service are public.

OSNMTF documentation built on Dec. 1, 2019, 1:22 a.m.