如果在R中的其他内部循环

Question

我需要在R中的for循环中间创建一个if / else语句。

我试图用R中的3-3设计创建一个假设的1期临床试验。我从sample1〜binomial（3，x / 10）开始，x从1开始。如果sample1 = 0，则将x增加1并再次取样。 当sample1> 0时，以相同的x值获取第二个样本sample2〜binomial（3，x / 10）。 如果sample2 = 0，则增加x，然后再次获取sample1。 如果sample2> 0，则打印该x值。 我想做10次，看看x值是多少。 下面是我的代码。

reps <- 10
MTD <- numeric(reps)
for (i in 1:reps) {
  x <- 1
  sample1 <- rbinom(1, 3, x/10)
  if (sample1>0) {sample2 <- rbinom(1,3, x/10)
  if (sample2>0) {MTD[i] <- (x)} else x<- x+1}
  else x <-x+1
  }
MTD

看结果，我得到的都是零，所以有些不对劲。 有人可以帮忙。 谢谢。

Answer 1

也许这就是您想要的：

reps <- 10
MTD <- numeric(reps)
x <- 1
i = 1
while (i < reps) {

    sample1 <- rbinom(1, 3, x/10)
    if (sample1>0) {
        sample2 <- rbinom(1,3, x/10)
        if (sample2>0) {
            MTD[i] <- (x)
            i = i+1
            x = 1
        } else {
            x <- x+1
        }
    } else {
        x <- x+1
    }
}
MTD

这些变化对每个i而言，您将继续获取sample1和sample2，直到sample1> 0和sample2> 0。 只有这样，循环才会变为i + 1，x重置为1。

Answer 2

MTD <- as.numeric(10)
sapply(seq(MTD), function(i)
    {
    sample1 <- sample2 <- rbinom(1, 3, i/10)
    if(sample1>0){
        sample2 <- sample1
    }else{
        sample2 <- i+1
    }
    if(sample2>0){
        sample2 <- sample1
    }else{
        sample2 <- i+1
    }
})

好吧，我将sample1和sample2拆分为独立的参数，以使其与众不同，如下所示。

MTD <- as.numeric(10)
sapply(seq(MTD), function(i)
    {
    sample1 <- rbinom(1, 3, i/10)
    sample2 <- rbinom(1, 3, i/10)
    if(sample1>0){
        sample2 <- sample1
    }else{
        sample2 <- i+1
    }
    if(sample2>0){
        res <- sample1
    }else{
        res <- i+1
    }; return(res)
})

这是您想要的结果吗？