Adicionando Funçao Script R