Update subset_teste.R