R/myloop.R

In LiYingWang/mytest:

#' Print days of the week
#'
#' @param i Charactor vector of some days of the week
#'
#' @return A charactors vector
#' @export
#'
#' @examples
#' myloop(c("Mon", "Tue", "Wed"))
myloop <- function(i){
  paste0("Today is ", i)
}