R/vmat.R

Defines functions `vmat`

`vmat` <-
function(wgths) {
  v <- as.matrix(wgths)
  r <-rowSums(v)              #row margins of weight matrix
  return(diag(r)-v)
}

Try the smacof package in your browser

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

smacof documentation built on March 19, 2024, 3:09 a.m.