[phecomp][pcaHMMmodels.R] script to plot a pca with HMM resulting models