R/sevenFunc.R

In GregBuck/seven.pkg: What the Package Does (One Line, Title Case)

#' multiply
#'
#' multiply numeric input by seven
#' @param A numeric input 'x'
#' @keywords seven
#' @export
#' @examples
#' multiply()

multiply <- function(x) {
  y <- 7 * x
  print("and the answer is...")
  print(y)
}

#' divide
#'
#' divide numeric input by seven
#' @param A numeric input 'x'
#' @keywords seven
#' @export
#' @examples
#' divide()

divide <- function(x){
  y <- x/7
  print("and the answer is...")
  print(y)
}

#' add
#'
#' add numeric input by seven
#' @param A numeric input 'x'
#' @keywords seven
#' @export
#' @examples
#' add()

add <- function(x){
  y <- x + 7
  print("and the answer is...")
  print(y)
}