Update subset_polis.R