more r code