y en la siguiente lo hizo en el R.