Moved some code to newly created helper.R. Took out figure title