Changed assignment of R.

This is for OpenModelica.
Merge branch 'openmodelica'