https://github.com/cran/smacof
Tip revision: d643973f74bee86ab6d37073463aa9f1cb5ddc6d authored by Jan de Leeuw on 30 November 2011, 00:00:00 UTC
version 1.2-1
version 1.2-1
Tip revision: d643973
strucprep.R
`strucprep` <-
function(x)
{
distvec <- as.vector(x[lower.tri(x)])
n <- dim(x)[1]
dissim <- structure(distvec, Size = n, call = quote(as.dist.default(m=b)), class = "dist", Diag = FALSE, Upper = FALSE)
}