funcoes para importar no R