Create fig3.R