Update subset.R