求助could not find function的问题-经管之家官网！

经济学管理学金融学统计学

您当前的位置> 会计>>

求助could not find function的问题

发布：athenachuxl | 分类：会计库

关于本站

人大经济论坛-经管之家：分享大学、考研、论文、会计、留学、数据、经济学、金融学、管理学、统计学、博弈论、统计年鉴、行业分析包括等相关资源。
经管之家是国内活跃的在线教育咨询平台!

提供"微信号、微博、抖音、快手、头条、小红书、百家号、企鹅号、UC号、一点资讯"等虚拟账号交易，真正实现买卖双方的共赢。【请点击这里访问】

TOP热门关键词

专题页面精选

坛友互助群

扫码加入各岗位、行业、专业交流群

创建了一个函数，但是刚跑一点点就出问题了。
grab_high<-function(x) {
n<-length(x)
date<-x[1]
j<-list()
k<-0
m<-NULL
for (i in 2:n) {
me<-x
high<-which(x[]>9.8)
if (length(high)<6) next
d<-diff(high)
t<-which(sapply(1:(length(x) - 5), function(i) {
all(d[i + (0:3)] == 1)
}))
continuous_high<-high(t)
date_high<-matrix(n[[continuous_high]],x[[continuous_high]])
n<-length(continuous_high)
v<-NULL
for ( i in 1:n) {
ireturn<-me[[continuous_high+1]]
v<-c(v,ireturn)
m<-c(m,ireturn)
}
k<-k+1
j[k]<-v
}
return(mean(m))
}
}
str(getout)
'data.frame': 265 obs. of2674 variables:
$ X : Factor w/ 265 levels "2014-03-21","2014-03-24",..: 1 2 3 4 5 6 7 8 9 10 ...
$ X000001.SH: num2.7159 0.9113 0.0499 -0.1761 -0.8277 ...
$ X000001.SZ: num6.832 0 -1.761 0.943 0.654 ...
$ X000002.SZ: num6.658 0.624 -0.993 -1.629 1.656 ...
$ X000004.SZ: num1.742 0.856 -0.309 0.774 2.458 ...
$ X000005.SZ: num3.86 1.65 1.63 -2 2.45 ...
$ X000006.SZ: num5.56 2.63 2.14 -1.88 10.02 ...
> grab_high(getout)
Error: could not find function "high"
high已经被定义成high<-which(x[]>9.8)，为什么还说找不到函数呢？？
求教啊，谢谢。

扫码或添加微信号：坛友素质互助

「经管之家」APP：经管人学习、答疑、交友，就上经管之家！
免流量费下载资料----在经管之家app可以下载论坛上的所有资源，并且不额外收取下载高峰期的论坛币。
涵盖所有经管领域的优秀内容----覆盖经济、管理、金融投资、计量统计、数据分析、国贸、财会等专业的学习宝库，各类资料应有尽有。
来自五湖四海的经管达人----已经有上千万的经管人来到这里，你可以找到任何学科方向、有共同话题的朋友。
经管之家（原人大经济论坛），跨越高校的围墙，带你走进经管知识的新世界。
扫描下方二维码下载并注册APP

本文关键词：
本文论坛网址：https://bbs.pinggu.org/thread-3700897-1-1.html

求助could not find function的问题-经管之家官网！

会计库