R/testone.R

In megregg/TestPackage2:

#' Test Function 1
#' 
#' This test function does not have a space after "document"
#' 
#' @param x a number or vector
#' @return a returns a number or vector
#' @details the function returns the square of the input 
#' 
#' @examples
#' b <- 10
#' testone(b)
#' 
#' @export 
testone <- function(x) {
  a <- x^2
  return(a)
}