Create pairs.R