short PCA script for a data mining class