R language week 4