如何手动编写一个在r中复制值的函数？

我现在正在学习如何进行循环，并试图找出如何编写手动复制参数的函数

基本上，我想采取如下措施：

duplicate_easy <- function(x){
  rep(c(x), c(x))
}

x1 <- c(3,1,9)

duplicate_easy(x1)

replicate\u easy可能是这样的：

duplicate <- function(x)
{

  result <- NULL
  for (i in 1:length(x))
  {
    result <- c(result, rep(x[i], x[i]))
  }
  return(result)
}

可能重复。重复的“我不明白”是要使用“rep（）”函数还是要重写它？
duplicate <- function(x)
{

  result <- NULL
  for (i in 1:length(x))
  {
    result <- c(result, rep(x[i], x[i]))
  }
  return(result)
}