作业帮 > 综合 > 作业

R语言.if else

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/27 23:36:42
R语言.if else
x
我理解,你的意思是循环的判断,当最后一项为1,且第一项为0 的时候,那么这两者交换;但是,代码表示的逻辑是,不论是不是最后一项,只要不满足当前项为1,下一项为0,就做else块中的代码;可见当i=1,5,6,7,8,9,10时,都执行了else中的代码;最后,按照你的风格,修改如下: redrowmove<-function(x){
  for(i in 1:(length(x)-1)){
    if(x[i]==1 && x[i+1]==0){
      x[i]=0
      x[i+1]=1
    }
  }
  if(x[length(x)]==1 && x[1]==0){
    x[length(x)]=0
    x[1]=1
  }
  return(x)
}