Revision c89277ac6d174f1c8d191994fc2fe0ee849f6a25 authored by Patrick Mair on 06 May 2022, 06:04:47 UTC, committed by cran-robot on 06 May 2022, 06:04:47 UTC
1 parent ed4a0b9
deleteOne.R
smacofDeleteOne <- function (delta, ndim, type) {
n <- nrow (delta)
x <- array (0, c (n, ndim, n))
for (i in 1:n) {
xi <- smacofSym(delta[-i, -i], ndim = ndim, type = type)$conf
x[((1 : n)[-i]), (1 : ndim), i] <- xi
x[i, (1 : ndim), i] <- 0
}
return (x)
}
Computing file changes ...