trim subset.R