r - 在 R 中创建具有正数和负数的序列

Question

我一直在尝试为以下系列的序列创建一个函数:

1,-2,-3, 4, 5, 6, -7 ,-8, -9, -10........n(1个正数，2个负数，3个正数，4个负数……继续最多 n)。

创建一个非负序列很容易，但这些负面术语正在考验我。

如果有人能帮我解决这个问题

Answer 1

这里有一种方法可以做到这一点。

myfun <- function(n) {
  myvec <- integer(n)
  for (i in seq_len(n)) {
    curtri <- ceiling(sqrt(i*2 + 0.25) - 0.5)
    myvec[i] <- i * (-1)^(curtri + 1)
  }
  return(myvec)
}

myfun(10)
 [1]   1  -2  -3   4   5   6  -7  -8  -9 -10

它利用了这样一个事实，即您可以使用 sqrt(i*2 + 0.25) - 0.5 找到您所在的三角形数。 .通过将偶数应用于非三角形数，我们可以确定下一个三角形数的索引，并将其用作 -1 的指数。 .

不过，可能有更好的方法。