R/functions.R

In Anmol-Srivastava/DATA-598-WI20-Week-7:

#' Add_One Function
#'
#' @param x
#'
#' @return sum: x + 1
#' @export
#'
#' @examples add_one(1), returns 2
add_one <- function(x) {
  print('Original:')
  print(x)
  print('After Adding 1:')
  print(x+1)
  return (x+1)
}



#' Add_Two Function
#'
#' @param x
#'
#' @return sum: x + 2
#' @export
#'
#' @examples add_two(1), returns 3
add_two <- function(x) {
  print('Original:')
  print(x)
  print('After Adding 2:')
  print(x+2)
  return (x+2)
}