added R script and eigenvector normalisation