Analizando el ajuste de un modelo lineal simple utilizando la funcion plot()

Residuos vs Estimados:

model1 <- lm(log(population_c1) ~ log(diameter_c1), data=planets_df_c)

plot(model1, 1)