t/t4018/r-noindent

RIGHT <- function(a, b) {
c = mean(a, b)
d = c + 2
ChangeMe()
return (c)
}