R - 根据以前的结果扩展产品

Question

我对 R 比较陌生，正在尝试编写以下代码：

c=n1(n1-R_1-1)(n1-R_1-R_2-2)...(n1-R_1-R_2-...-R_{m1-1}-m1+1)

我本质上想创建一个包含 c 的所有可能值的向量。注意 n1 和 m1 是固定值。

这是我的尝试：

c[j]<- for (j in 1:m1)
{
 if (c==1) {n}
 else (c>1) {n(n-R_1-1)}
}

我知道这是错误的。我在结构上苦苦挣扎。任何帮助将非常感激。谢谢。

Answer 1

我仍然不确定你在问什么。但这能解决问题吗？

    m1 = 8
    n = 6
    c <- numeric(m1)
    R_1 <- 3

    for (j in 1:m1){
      if (j==1) {c[j] <- n}
      else {c[j]<- c[j-1]*(c[j-1]-R_1-1)}
    }