library(MASS)
library(cluster)
arana<-read.table("C:/Documents and Settings/Leticia/Mis documentos/ESPE/multivariado/semestre2009-1/mds/arana.txt")
dist(arana,method="binary")##distancias,disimilitudes
1-dist(arana,method="binary")###similitudes
plot(cmdscale(dist(arana[,2:29],method="binary")),type="p",pch=19)
text(cmdscale(dist(arana[,2:29],method="binary")),label=arana$V1,col=6)


arana.mds<-cmdscale(dist(arana[,2:29],method="binary"),eig=TRUE,k=11)
 arana.mds$eig 
arana.mds$GOF
arana.mds<-cmdscale(dist(arana[,2:29],method="binary"),eig=TRUE,k=2)
arana.mds$eig  
arana.mds$GOF