Update Figure4_quick.r