exercise4_6.R