#install.packages("tidyverse")
library("tidyverse")
#install.packages("growthcurver")
library("growthcurver")

library(ggplot2)
Growth_curves<-'Growth_Curves_Ave'
d <- read.table(Growth_curves, header = TRUE, sep = "\t", stringsAsFactors = FALSE)
gc_fit<-SummarizeGrowth(Growth_Curves_Ave$Time, Growth_Curves_Ave$L)
plot(gc_fit)
gc_out <- SummarizeGrowthByPlate(Growth_Curves_Ave, plot_fit = TRUE, 
                                 plot_file = "gc_plots.pdf")
gc_fit<-SummarizeGrowth(Growth_Curves_Ave$Time, Growth_Curves_Ave$D3)
plot(gc_fit)


d<-read.delim(textConnection(Growth_Curves_Ave),sep="")