codigo de R