这是一道练习题的描述，根据这个我写出了代码：
sumforfun <- function(x){
  if(is.numeric(x)=F){
    print('您输入错误')
    break
  }
  else{
    n <- length(x)
    a <- numeric(as.integer(n/2))
    if(n%%2=0){
    for(i in 1:n/2){
      a<-x[1+2^(i-1)]+x[2+2^(i-1)]
    }
  }else{
    for(i in 1:(n-1)/2){
      a<-x[1+2^(i-1)]+x[2+2^(i-1)]
    }
  }
  }
  return(a)
}

但结果却显示

求大神们帮忙指导下