R/distSqrd.R

`distSqrd` <-
function (X,Y) {
    nx	= nrow(X);
    ny	= nrow(Y);
    abs(rowSums(X^2)%o%rep(1, ny)  +  rep(1, nx)%o%rowSums(Y^2) - 2.*(X %*% t(Y)));
}

Try the vbmp package in your browser

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

vbmp documentation built on Nov. 8, 2020, 5:38 p.m.