Initial data commit

Task/Variadic-function/R/variadic-function-1.r

@@ -0,0 +1,10 @@
+ printallargs1 <- function(...) list(...)
+ printallargs1(1:5, "abc", TRUE)
+# [[1]]
+# [1] 1 2 3 4 5
+#
+# [[2]]
+# [1] "abc"
+#
+# [[3]]
+# [1] TRUE

Task/Variadic-function/R/variadic-function-2.r

@@ -0,0 +1,10 @@
+ printallargs2 <- function(...)
+ {
+   args <- list(...)
+   lapply(args, print)
+   invisible()
+ }
+ printallargs2(1:5, "abc", TRUE)
+# [1] 1 2 3 4 5
+# [1] "abc"
+# [1] TRUE

Task/Variadic-function/R/variadic-function-3.r

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