Solucionado
Os valores utilizados na resposta do professor para o comando curve estão diferentes do meu. Mas segui as instruções verificando o intercepto, que tem o mesmo valor.
Valor do intercepto real:
Coefficients:
(Intercept) dens
1.054e+02 -3.857e-04 Valores utilizados pelo formador:
curve(9.936e+01+5.638e-04*x, add=TRUE)
Percebi que trata-se de um erro no enunciado do problema. O formador pede resposta para um modelo, mas insere dados relativos ao outro modelo. Já fiz a sugestão de alteração do texto utilizando os meios apropriados.