R code for running PCA on genotypes

R code will
 - read in genotypes
 - create relationship matrix between animals
 - Run PC