Added preliminary plot of day 7 probabilities to final_analysis.Rmd