Nothing
#tertiary approach to ties
`monregT` <-
function(x,y,w=rep(1,length(x)),block=weighted.mean)
{
#x ... observed distance matrix
#y ... Guttman transformed distances
#w ... weights
wag <- tapply(w,x,sum)
yag <- tapply(y,x,mean)
xag <- tapply(x,x,mean)
o <- order(xag)
r <- order(o)
e <- pavasmacof(yag[o],wag[o])[r] #call pava
return(y+ifelse(outer(x,xag,"=="),1,0)%*%(e-yag[o]))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.