Maddocent · August 29, 2015 14:24 · Mar 21, 2015
diff --git a/bin_op.R b/bin_op.R
@@ -0,0 +1,3 @@
+"%p%" <- function(left, right){
+  paste(left, right)
+}
diff --git a/boring_function.R b/boring_function.R
@@ -0,0 +1,3 @@
+boring_function <- function(x) {
+  x
+}
diff --git a/evaluate.R b/evaluate.R
@@ -0,0 +1,3 @@
+evaluate <- function(func, dat){
+  func(dat)
+}
diff --git a/mad_libs.R b/mad_libs.R
@@ -0,0 +1,12 @@
+mad_libs <- function(...){
+  # Do your argument unpacking here!
+  args <- list(...)
+  place <- args[["place"]]
+  adjective <- args[["adjective"]]
+  noun <- args[["noun"]]
+
+  # Don't modify any code below this comment.
+  # Notice the variables you'll need to create in order for the code below to
+  # be functional!
+  paste("News from", place, "today where", adjective, "students took to the streets in protest of the new", noun, "being installed on campus.")
+}
diff --git a/my_mean.R b/my_mean.R
@@ -0,0 +1,3 @@
+my_mean <- function(my_vector) {
+  sum(my_vector)/length(my_vector)
+}
diff --git a/remainder.R b/remainder.R
@@ -0,0 +1,3 @@
+remainder <- function(num, divisor = 2) {
+  num %% divisor
+}
diff --git a/telegram.R b/telegram.R
@@ -0,0 +1,3 @@
+telegram <- function(...){
+  paste("START", ..., "STOP")
+}