R/myFun.R

In ssaxe-usgs/Spractice:

#' Sum
#'
#' If vector, return vector.  If data.frame, sum rows.  If matrix, sum columns.
#' @param x A vector, data.frame, or matrix.
#' @export
#' @return NA
#' @examples
#' myFun(x)

myFun <- function(x){
  UseMethod("myFun", x)
}