plot_data_and_model.R

#Script to plot data and model

growth_data <- read.csv("???")

logistic_fun <- function(t) {
  
  N <- (N0*K*exp(r*t))/(K-N0+N0*exp(r*t))
  
  return(N)
  
}

N0 <- ??? #
  
r <- ??? #
  
K <- ??? #

ggplot(aes(???,???), data = growth_data) +
  
  geom_function(fun=logistic_fun, colour="red") +
  
  geom_point()

  #scale_y_continuous(trans='log10')