Swirl R Programming Script Answers

bin_op.R

"%p%" <- function(left, right){
  paste(left, right)
}

boring_function.R

boring_function <- function(x) {
  x
}

evaluate.R

evaluate <- function(func, dat){
  func(dat)
}

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.")
}

my_mean.R

my_mean <- function(my_vector) {
  sum(my_vector)/length(my_vector)
}

remainder.R

remainder <- function(num, divisor = 2) {
  num %% divisor
}

telegram.R

telegram <- function(...){
  paste("START", ..., "STOP")
}