Added my old quickie R script