modify chap3 example, add chap4.r