add subset.R