diff --git a/data_preparation/createWorkSequenceData.R b/data_preparation/createWorkSequenceData.R
index 859e120..81b785e 100644
--- a/data_preparation/createWorkSequenceData.R
+++ b/data_preparation/createWorkSequenceData.R
@@ -40,6 +40,8 @@ for(day in window:numDays)
   slidingAverage <- c(slidingAverage, windowAverage)
 }
 
+
+
 plot(window:numDays, slidingAverage, main="Sliding Average")
 plot(density(slidingAverage), main="Sliding Average Density")
 plot(density(workLoad), main="Total Work Load Average")
@@ -47,4 +49,13 @@ plot(density(workLoad), main="Total Work Load Average")
 
 dataTibble <- tibble(TimeSinceAugFirst = window:numDays, slidingWorkAverage = slidingAverage)
 
+
+ggplot(data = dataTibble) + 
+  theme(plot.title = element_text(hjust = 0.5)) + 
+  ggtitle("Team's Total Daily Load Moving Average") + 
+  geom_point(mapping = aes(x=TimeSinceAugFirst, y=slidingWorkAverage)) + 
+  labs(x = "Days Since August Twenty First 2017", y = "Teams Total Daily Load")+ 
+  theme_bw()
+
+
 write.csv(dataTibble, "cleaned/slidingWorkAverage.csv")
\ No newline at end of file
diff --git a/findings/SlidingAverageDailyLoad.png b/findings/SlidingAverageDailyLoad.png
new file mode 100644
index 0000000..6517a0b
Binary files /dev/null and b/findings/SlidingAverageDailyLoad.png differ