# PRINCIPAL COORDINATES ANALYSIS:
M=read.table("c:/MultivariateDATA/T8-5.DAT")
M
D=dist(M,method="euclidean")
D

# When importing a distanc matrix directly see:
?as.matrix

PCO=cmdscale(D,k=2,eig=TRUE,x.ret=TRUE)
PCO

# PLOT:
x <- PCO$points[,1]
y <- PCO$points[,2]
plot(x, y, xlab="Coordinate 1", ylab="Coordinate 2",
  main="PRINCIPAL COORDINATES ANALYSIS", type="n")
text(x, y, labels = row.names(M), cex=.7)