script R para FPM e tabelas de cidades semelhantes