R code: revise identation
c code: revise identation