update r model