O'Reilly logo
  • Phillip Peng thinks this is interesting:

sq.g <- function(x) { nn <- length(x) yy <- 1:nn gg <- 2 * (x - yy) }

From

Cover of Nonlinear Parameter Optimization Using R Tools

Note

The markdown used to display these functions hides the operators being used (unless you highlight the code block)...