R 创建两两相加函数输出NA，不知道是不是哪里写错了

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

代码如下：
sumfor <- function(x){
  a <- numeric(0)
  m <- 1
  for(i in x){
  if((class(x) != 'numeric') & (class(x) != 'interge')) {
    print('请输入一个数值型向量')
  } else {
     if(length(x)/2 != 0){
        x <- x[length(x)-1]
        a[i] <- x[m]+x[m+1]
        m <- m+2
     } else{
        a[i] <- x[m]+x[m+1]
        m <- m+2
      }
    }
  }
  print(a)
}
sumfor(c(1,5))的输出结果为
> sumfor(c(1,5))
[1] NA NA NA NA NA

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：不知道是不是 不知道 For Sum

有没有大神帮看看。。

x <- x[length(x)-1] 这样你的x只剩一个数了
x <- x[1-length(x)] 试试

1-lenght的话返回的x也只剩一个数了，
我研究了下发现这样写应该行
sumfor <- function(x){
  a <- numeric(0)
  m <- 1
  b <- 1
  for(i in x){
  if((class(i) != 'numeric') & (class(i) != 'interge')) {
    print('请输入一个数值型向量')
  } else {
     if(length(x)%%2 != 0){
        x <- x[1:(length(x)-1)]
        a[b] <- x[m]+x[m+1]
        b <- b+1
        m <- m+2
        if(m>=length(x)){
          break
        }
     } else{
        a[b] <- x[m]+x[m+1]
        b <- b+1
        m <- m+2
        if(m>=length(x)){
          break
        }
      }
  }
   
  }
  print(a)
}
sumfor(c(1,5,4,6,7))