fishrela2<-lm(FCR~Weight+Food.eaten, data=fcr2)
summary(fishrela2)

plot(fishrela2$residuals, pch = 16, col = "red")

# Scatter plot with regression line
ggplot(data = fcr2, aes(x = FCR, y = Weight+Food.eaten)) +
  geom_point() + # Adds scatter points
  geom_smooth(method = "lm", color = "blue") + # Adds regression line
  labs(x = "FCR", y = "Weight+foodeaten") +
  theme_classic()