test passes for processing and limiting by lanes

added a function to trim the paired data to match a certain lane combo
modified:   lib/get_couch.R
modified:   lib/paired.Rdata.R

tests are passing
modified:   test/test_get_couch.R