如何仅在R-exams中满足条件时执行语句

Question

我打算代码只有在c与小于36的平方不同时才运行，否则重试...

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

}else{
  
}

Answer 1

也许是一个更简单的条件：

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

Answer 2

下面的方法将会起作用：

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")
  }
}