求助while循环

想要写一个循环来做项目，无奈while循环每次运行总是弹出‘error：'；也没有解释～ 实在不知道为什么～ 求帮忙！

<br />
    vec<-vector(length=n)<br />
    m=1<br />
    w=1<br />
    while(m<=(n-1)){<br />
      if(bool_list[[1]][m]==FALSE){<br />
        if(m==(n-1)){<br />
          vec[n]<-probes[n]<br />
          stop()<br />
        }<br />
        if (m!=(n-1)){<br />
          vec[m]=probes[m]<br />
          m=m+1<br />
          if(m>n-1) stop()<br />
        }<br />
      } else<br />
      if(bool_list[[2]][m]==FALSE | is.na(bool_list[[2]][m])){<br />
        pos<-which(pval==min(pval[m:(m+1)]))<br />
        vec[m]<-probes[pos] #2 probes within 1kb<br />
        m=m+2<br />
        if(m>n-1) stop()<br />
      } else<br />
      if(bool_list[[2]][m]==TRUE){<br />
        pos<-which(pval==min(pval))<br />
        vec[m]<-probes[pos] #2 probes within 1kb<br />
        m=m+2<br />
        if(m>n-1) stop()<br />
    }</p>
<p>    List_SNP_3[[w]]<-as.character(vec)<br />
  }<br />