speed up genefilter.R