Create plot_chi1torsion.R