# Homework 10 template
# ====================

# Goal: Plot simulated trial outcomes for control and treatment group


# clear workspace
rm(list = ls())


# edit the following lines
# WARNING:
# The script will export ONLY LAST PLOT drawn. 
# (It is safer to plot only one figure.)




# do not edit following
# - save results
ggsave("results.pdf", width = 8, height = 6)