Some comments and r code