Esse exercício deveria estar na aula 03 (Gráficos do Modelo Estatístico), não na 02. A aula dois acaba no modelo 2 ainda e não ensina a plotar a reta no gráfico.
Eu estou postando aqui porque não consegui mandar na sugestão...
Outros dois erros nesse exercício que mandei na sugestão:
- Falta "=" em "data Airq"
m5<-lm(airq~dens, data Airq)
- A variável explicativa da pergunta é "dens", mas na resposta ao colocar os valores da reta são os valores para "medi". (Erro já apontado: https://cursos.alura.com.br/forum/topico-nao-percebi-estes-valores-103666)
curve(9.936e+01+5.638e-04*x, add=TRUE)