r history update
R model should be done here