R/prs.R

In Kertoo/Learningpckdown:

#' prs function
#'
#' @param x parameter
#' @param y parameter
#'
#' @return Something
#' @export
#'
#' @examples
#'
#' x <- 1:10
#' y <- NULL
#' prs(x, y)
prs <- function(x, y) {
  for (i in x) {
    y <- c(y, i)
  }
  y
}