Primera version. Ejercicio Peer Assigment del curso de R