Update subset.R

Edits to subset.pca and subset.eof - argument 'pattern' can make a subselection of the modes