Geog_5113_module13_PCA_in_R.R