codigo do R funcionando