First post - Old PairPlots function I wrote in R