How to write c code in r