update .R files part III