Com o gráfico plotado, vamos adicionar a reta (comando curve) com os valores que encontramos no comando summary. Lembrando que a fórmula para a reta é y=a+b*x, ou seja, reta=intercepto + inclinação * x:
curve(9.936e+01+5.638e-04*x, add=TRUE)
como acho o intercepto + inclinação ?