# NOT RUN {
data(audists)
audists.cmd <- cmdscale(audists)
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