R/test_fns.R

In travisje/travisTetsPckg: Testing

#' Add One 
#'
#' This function adds one to a vector.
#'
#' @param x A numerical vector
#' @return The vector plus one
#' @export
test_addone <- function(x) {
  y <- x + 1
  y
}


#' Times 2 
#'
#' This function multiplies a vector by 2
#'
#' @param x A numerical vector
#' @return The vector times 2
#' @export
test_timestwo <- function(x) {
  y <- x * 2
  y
}

#' Yesihave 
#'
#' This function acknowlewdges itself
#'
#' @return A stringy greeting
#' @export
test_yesIhave <- function() {
  y <- "Yep I got it from annotated tag 1.2"
  y
}