Alteracao no script do R sprint 3