get_avg <- function(...) { values <- c(...) if (length(values) == 0) return(0) mean(values)}avg <- get_avg(1, 2, 3, 4)# avg = 2.5cat("avg =", avg, "\n")