Как вручную написать функцию, которая дублирует значения в r?

Question

Сейчас я учусь делать циклы и пытаюсь выяснить, как написать функцию, которая дублирует аргументы вручную.

По сути, я хочу взять что-то вроде этого:

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

x1 <- c(3,1,9)

duplicate_easy(x1)

Результат: 3 3 3, 1, 9 9 9 9 9 9 9 9 9

И заменить это с for для l oop по линиям,

duplicate <- function(x)
  {

  result <- NULL
  for (i in rep(x) )
    {
    result <- c(result, rep(x))
  }
  return(result)
}

x1 <- c(3, 1, 9)

duplicate(x1)

, что также должно привести к тому же, но вышеприведенное не работает.

Answer 1

Может быть, это:

duplicate <- function(x)
{

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