Código en R para el escritor Exemplar