pulled in BGSREC table , limiting data with dplyr