update R-programming week3