Create Paired_sample.R

Paired sample test