R/equal10.R

In SchoenbergA/Gitit:

#' equal10
#'
#' this will serve as a test if the function and documentation works
#' the funtion tests if the input value is equal 10
#'
#' @param x numeric value
#' @return True or False if x is = 10
#'
#' @export

equal10 <- function(x){
  res <-x == 10
  if (res==T){print("x equal 10")
  }  else {print("x unequal 10")}
}