Update subset_lab.R