v <- rnorm(100)
u <- v + 0.3*rnorm(100)
X = data.frame(v=v,u=u)
pairsDF <- GetPairs(X, "v", "u")
pairsDFRow1 <- subset(pairsDF, OriginalRowNumber==1)
# For most original rows, we get 75% of the weight in 50% of the pairs:
PlotPairCumulativeWeights(pairsDF)
Run the code above in your browser using DataLab