arglist <- list(x=runif(10), trim=0.1, na.rm=TRUE)
do.call(mean, arglist)