Update Chapter4.R