R/skeleton.R

#' A template for function creation
#' @param arg Defaults to 4.
#' @family template
#' @keywords setup
#' @export setUp
#' @examples
#' skeleton(1)
#' skeleton(2)

skeleton <- function(arg = 4) {
  if(arg ==1){
return("not implemented 1")
  }else if(arg == 2){
return("not implemented 2")

  }else if(arg ==3){
return("not implemented 3")

  }else if(arg ==4){
return("not implemented 4")

  }else{
return("not implemented ...")

  }
}
benyomin/censusFunctions documentation built on May 12, 2019, 3:03 p.m.