Update Figure3_quick.r