exercise4_7.R