modified:   filtertoRare.R