checking in r code file