Delete Subset.R