reproduce.R - can now select specific rows. Also cleaned output.