data(audists)
if (FALSE) {
audists.cmd <- cmdscale(audists)
library(lattice)
xyplot(audists.cmd[,2] ~ audists.cmd[,1],
groups=row.names(audists.cmd),
panel = function(x, y, subscripts, groups)
ltext(x = x, y = y, label = groups[subscripts],
cex=1, fontfamily = "HersheySans"))
}
Run the code above in your browser using DataLab