Update 20131102_PCA_HCA_script-r