Update Figure3.r