more r code...