Archivo con las funciones en R