R/DistUnfold.R

Defines functions DistUnfold

DistUnfold <- function(X, Y) {
  n = dim(X)[1]
  m = dim(Y)[1]
  D = matrix(0, n, m)
  for (i in 1:n) for (j in 1:m) D[i, j] = sqrt(sum((X[i, ] - Y[j, ]) * (X[i, ] - Y[j, ])))
  return(D)
}

Try the MultBiplotR package in your browser

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

MultBiplotR documentation built on Nov. 21, 2023, 5:08 p.m.