primeira versao do script de R