Update filter.R w/ benchmark. NOT TESTED