Array of parameters

get_avg <- function(...) {
  values <- c(...)
  if (length(values) == 0) return(0)
  mean(values)
}

avg <- get_avg(1, 2, 3, 4)
# avg = 2.5

cat("avg =", avg, "\n")