added new R function for looking at correlation between PDO index and portal precip