range <- function(..., na.rm=FALSE)
c(min(..., na.rm=na.rm),max(..., na.rm=na.rm))
