R循环出错，求助。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

> str(k)
'data.frame':        264 obs. of  1 variable:
$ X000001.SH: num  0.9113 0.0499 -0.1761 -0.8277 -0.2382 ...

> h5<-function(x) {
  a<-which(x>9.8)
  n<-length(a)
  bus<-NULL
  for(i in 1:n-7) {
    if (x[i+4]==x[i]+4) areturn<-mean(x[i+5],x[i+6])
    bus<-c(bus,areturn) }
  zreturn<-mean(bus)
  return(zreturn)
  }
}

> h5(k)
Error: object 'areturn' not found
In addition: Warning message:
In if (x[i + 4] == x[i] + 4) areturn <- mean(x[i + 5], x[i + 6]) :
  the condition has length > 1 and only the first element will be used


请问这个出错是什么意思？循环哪里有错吗？谢谢

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Variable Frame ABLE Fram Data

loop 错没错不知道  if (x[i+4]==x[i]+4) areturn<-mean(x[i+5],x[i+6]) if后面应该有个{} 你自己检查一下先确保语法格式没错

if (x[i+4]==x[i]+4) {areturn<-mean(x[i+5],x[i+6])}

1. if (x[i+4]==x[i]+4) areturn<-mean(x[i+5],x[i+6])

复制代码

应该改成

1. if (x[[1]][i+4]==x[[1]][i]+4) areturn<-mean(x[[1]][i+5],x[[1]][i+6])

复制代码

因为data.frame类型不是基本类型