fcr2<-read.csv("fcr2.csv")
summary(fcr2)
library(moments)
library(ggplot2)
library(tidyverse)
install.packages("broom")
install.packages("ggpubr")
require(dplyr)
require(moments)
require(tidyr)
require(broom)
require(ggpubr)
hist(fcr2$Weight)

#simple regression

plot(FCR~Weight, data=fcr2)

fishrela<-lm(FCR~Weight, data=fcr2)
summary(fishrela)

#plot residuals

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

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


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

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