# NOT RUN {
load(url(paste0("https://github.com/RTIInternational/rollmatch/raw/master/",
"tests/testthat/lr_result.rda")))
load(url(paste0("https://github.com/RTIInternational/rollmatch/raw/master/",
"tests/testthat/comparison_pool.rda")))
trimmed_pool <- trimPool(caliper = .2, data_pool = comparison_pool,
lr_result = lr_result)
head(trimmed_poll)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab