R语言新手求高手帮忙编程，非常感谢

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

哪位高手能帮忙用R语言编个程序，实现以下要求。非常感谢对一列金融时间序列数据
1 计算均值X及峰值K
2 对K进行判断，若K>=3,则选择|Xi-X|最大的Xi，将其从样本中除去
3 重复以上操作，直到峰值小于3，
4 从剩余的样本中输出最大的Xi

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：非常感谢 求高手 R语言 时间序列数据 金融时间序列 最大的 程序 样本

不知道有没更简单的，自己编了个，先安装一个quantmod包
library(quantmod)
x=c(1,2,3,2,1,-1,2,5,3,7)
(X=mean(x))#计算均值X及峰值K
(K=findPeaks(x))# 计算峰值
while (length(K[K>=3])>0)
{ (x=x[-which(abs((x-X))==max(abs(x-X)))])
K=findPeaks(x)
X=mean(x)}
#对K进行判断，若K>=3,则选择|Xi-X|最大的Xi，将其从样本中除去,重复以上操作,直到峰值小于3
max(x)
#从剩余的样本中输出最大的Xi

truly_x 发表于 2016-4-27 21:00
不知道有没更简单的，自己编了个，先安装一个quantmod包
library(quantmod)
x=c(1,2,3,2,1,-1,2,5,3,7)

运行过了，出现下边的错误，还有，我刚开始写错了，K应该是峰度，不好意思
> while (length(K[K>=3])>0)
+ {(zt=zt[-which(abs((zt-X))==max(abs(zt-X)))]
+ K=kurtosis(zt),X=mean(zt)}
错误: unexpected symbol in:
"{(zt=zt[-which(abs((zt-X))==max(abs(zt-X)))]
K"

lyjhy123@163.co 发表于 2016-5-11 12:53
运行过了，出现下边的错误，还有，我刚开始写错了，K应该是峰度，不好意思
> while (length(K[K>=3])>0) ...

是我的问题，少写个括号，现在出来结果了