Check tables and extract common samples
check_tabs(...)
...
tables
formatted tables
data("otutab", package = "pcutils") check_tabs(otutab)