R note 1 added