Update Model-in-R.R