tabela completa e codigo do R melhorando