R composition example