Create ch04.R