Revision 31f51733b8b246a6c7acc26db29cad177b2f9a21 authored by Jan de Leeuw on 27 July 2008, 00:00:00 UTC, committed by Gabor Csardi on 27 July 2008, 00:00:00 UTC
1 parent ebdb7bf
monregP.R
# primary approach to ties
`monregP` <-
function(x, y, w = rep(1,length(x)), block = weighted.mean)
{
#x ... observed distances (diss)
#y ... Guttman transformed distances
#w ... weights
o <- order(x,y)
r <- order(o)
return(pavasmacof(y[o],w[o])[r])
}
Computing file changes ...