figure 4-6-2.do via R