Pearson Test In R