Primera funcion en R