https://github.com/cran/smacof
Tip revision: c89277ac6d174f1c8d191994fc2fe0ee849f6a25 authored by Patrick Mair on 06 May 2022, 06:04:47 UTC
version 2.1-5
version 2.1-5
Tip revision: c89277a
bmat.R
`bmat` <-
function(diss, wgths, d, eps = 1E-12)
{
z <- ifelse(d < eps, 1, 0)
b <- as.matrix((wgths*diss*(1-z))/(d+z))
r <- rowSums(b)
return(diag(r)-b)
}