Create subset_teste.R