Update pairs.R