R language week 3