R/distRect.R

Defines functions distRect

distRect <- function(x,y,reg)
{
  return(sqrt(reg+outer(rowSums(x^2),rowSums(y^2),"+")-2*x%*%t(y)))
}

Try the smacof package in your browser

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

smacof documentation built on May 6, 2022, 9:05 a.m.