# using dots argument

testDots <- function(...) {
  dots <- list(...)
  mean(...)  
}

a <- c(1:5,100)
mean(a, trim=.2)
testDots(a, trim=.2)