萌新自定义函数问题求指教

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

这是一道练习题的描述，根据这个我写出了代码：
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)
}

但结果却显示

求大神们帮忙指导下

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：自定义函数 求指教 自定义 For Sum

sumforfun <- function(v){
  if(mode(v) != "numeric"){
    print("wrong input")
  }
  y <- c()
  z <- length(v)
  if(z%%2 == 0){
    for(i in 1:(z/2)){
      y <- sum(v[2*i-1],v[2*i])
    }
  }else{
    z <- length(v[1:z-1])
    for(i in 1:(z/2)){
      y <- sum(v[2*i-1],v[2*i])
    }
  }
  return(y)
  
}这样有个缺点，就是必须奇偶相间的，如果是c(1,2,2,3,5,6)这样的话就会出错，可以试着更改一下

飞天玄舞6 发表于 2017-10-23 23:07
sumforfun

请问我之前的函数在哪些地方有错误？

看你的出错结果应该是整个函数没有一起运行吧

飞天玄舞6 发表于 2017-10-23 23:17
看你的出错结果应该是整个函数没有一起运行吧

刚才又试了下，不是整个函数没运行，而是犯了一个巨低级的错误。。。判断语句貌似得==而不能=