R homeworks