seankross · March 21, 2015 15:35 · EleniB98 · Feb 5, 2024
diff --git a/bin_op.R b/bin_op.R
 "%p%" <- function(left, right){
  paste(left, right)
 }
diff --git a/boring_function.R b/boring_function.R
 boring_function <- function(x) {
  x
 }
diff --git a/evaluate.R b/evaluate.R
 evaluate <- function(func, dat){
  func(dat)
 }
diff --git a/mad_libs.R b/mad_libs.R
 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
 my_mean <- function(my_vector) {
  sum(my_vector)/length(my_vector)
 }
diff --git a/remainder.R b/remainder.R
 remainder <- function(num, divisor = 2) {
  num %% divisor
 }
diff --git a/telegram.R b/telegram.R
 telegram <- function(...){
  paste("START", ..., "STOP")
 }
	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.")
	}
	my_mean <- function(my_vector) {
	sum(my_vector)/length(my_vector)
	}