So, I created an exponential regression using 50 data points taken over 50 days. Finding the summary of it resulted in the following:
> summary(TotalModel