Create fig1.R