Update Figure 4-6-1.r