data("sampleData")
# take a subset of the data for speed
seg <- CNSeg(sampleData[which(is.element(sampleData[, "ID"],
sample(unique(sampleData[, "ID"]), 10))), ])
rsBypair <- getRS(seg, by = "pair", imput = FALSE, XY = FALSE, what = "mean")
rsBypair
Run the code above in your browser using DataLab