如何仅在 R 考试中满足条件时执行语句

Question

我打算代码仅在 c 与小于 36 的平方不同时运行，否则再试一次...

c<-sample((1:36),1)
if(c==1|c==4|c==9|c==16|c==25|c==36){

}else{
  
}

Answer 1

以下将起作用：

gotit <- FALSE

while (!gotit)
{
  c<-sample((1:36),1)
  if(c==1|c==4|c==9|c==16|c==25|c==36){
    gotit <- FALSE
  } else {
    gotit <- TRUE
    cat("Got it!\n")
  }
}

Answer 2

也许更简单的条件：

if (c %in% (1:5)^2) {...}