Sample script of calling C from R