Update PairAssign1.R