Add R update functions. Updating model has not resolved yet...