Compute euclidean distance for PCA in R

Question

I did a PCA (using eigenvalue and smartPCA) and now I am trying to compute the Euclidean distance to one population. For example , in this dataset, I would want to compute i