##install.packages("aplpack");
library(aplpack);
##May need to fix Tcl/Tk
##May need to install Xquartz/X11
USArrests<-read.table("USArrests.Data", header=TRUE);
##postscript("USarrestFaces.eps");
faces(USArrests);
##dev.off();