长度零误差

Question

运行该函数后，我得到一个长度为零的参数。我已经看过其他用户有这个问题，但我无法弄清楚错误。

x<-1
p_atk<-0
p_def<-0
war<-function(n_atk, n_def){
  d_atk<-sort(g(n_atk), decreasing = T)
  d_def<-sort(g(n_def), decreasing = T)
while(x<=n_atk & x<=n_def){
ca<-n_atk - x
cd<-n_def - x
a<-(sort(d_atk)[ca])
d<-(sort(d_def)[cd])

if (a>d) {p_def<-p_def+1}
  else {p_atk<-p_atk+1}

x<-x+1
  }

 Saldo<-paste("ataque perde", p_atk, ";", "defesa perde", p_def)
  res<-dados(n_atk, n_def)
  print(res)
  return(Saldo)

}

当我使用函数war时，会出现以下消息：

  

if（A＆gt; D）{：参数长度为零

时出错