Update Figure4.r