Update Chapter5.R