- 阅读权限
- 255
- 威望
- 0 级
- 论坛币
- 10397 个
- 通用积分
- 44.9129
- 学术水平
- 67 点
- 热心指数
- 67 点
- 信用等级
- 61 点
- 经验
- 1211 点
- 帖子
- 714
- 精华
- 3
- 在线时间
- 1557 小时
- 注册时间
- 2009-12-16
- 最后登录
- 2024-3-18
教授
还不是VIP/贵宾
TA的文库 其他... 投资理财书籍
- 威望
- 0 级
- 论坛币
- 10397 个
- 通用积分
- 44.9129
- 学术水平
- 67 点
- 热心指数
- 67 点
- 信用等级
- 61 点
- 经验
- 1211 点
- 帖子
- 714
- 精华
- 3
- 在线时间
- 1557 小时
- 注册时间
- 2009-12-16
- 最后登录
- 2024-3-18
| 开心 2022-1-10 16:08:57 |
---|
签到天数: 9 天 连续签到: 1 天 [LV.3]偶尔看看II
|
相似文件
换一批
经管之家送您一份
应届毕业生专属福利!
求职就业群
感谢您参与论坛问题回答
经管之家送您两个论坛币!
+2 论坛币
用了一下午,做了一个简单的策略。分析的是中国上市银行(共16家),从2007年到2014年,当价格大于月均线时买入,当价格小于月均线是卖出,初始资金是100万人民币,测试一下能够获利多少? 用的是winXP系统,R3.10版本,主要用quantstrat包进行分析。
附分析结果图:
代码运行展示:
代码:
部分代码文字版:
rm(list=ls())
require(quantstrat)
currency("RMB")
setSymbolLookup("北京银行"=list(name="601169.ss",src="yahoo"))
setSymbolLookup("平安银行"=list(name="000001.sz",src="yahoo"))
setSymbolLookup("民生银行"=list(name="600016.ss",src="yahoo"))
setSymbolLookup("招商银行"=list(name="600036.ss",src="yahoo"))
setSymbolLookup("农业银行"=list(name="601288.ss",src="yahoo"))
setSymbolLookup("交通银行"=list(name="601328.ss",src="yahoo"))
setSymbolLookup("兴业银行"=list(name="601166.ss",src="yahoo"))
setSymbolLookup("建设银行"=list(name="601939.ss",src="yahoo"))
setSymbolLookup("光大银行"=list(name="601818.ss",src="yahoo"))
setSymbolLookup("工商银行"=list(name="601398.ss",src="yahoo"))
setSymbolLookup("中信银行"=list(name="601998.ss",src="yahoo"))
setSymbolLookup("南京银行"=list(name="601009.ss",src="yahoo"))
setSymbolLookup("宁波银行"=list(name="002142.sz",src="yahoo"))
setSymbolLookup("浦发银行"=list(name="600000.ss",src="yahoo"))
setSymbolLookup("中国银行"=list(name="601988.ss",src="yahoo"))
setSymbolLookup("华夏银行"=list(name="600015.ss",src="yahoo"))
symbols=c("北京银行","平安银行","民生银行","招商银行",
"农业银行","交通银行","兴业银行","建设银行","光大银行",
"工商银行","中信银行","南京银行","宁波银行","中国银行",
"浦发银行","华夏银行")
beginTime=as.Date("2007-01-01")
endTime=as.Date("2015-04-28")
initEq <- 1e6
Sys.setenv(TZ="UTC")
getSymbols(symbols,from=beginTime,to=endTime,index.class=c("POSIXt","POSIXct"),adjust=T)
for(symbol in symbols)
{
stock(symbol, currency="RMB",multiplier=1)
x<-get(symbol)
x<-to.monthly(x,indexAt='endof',drop.time=FALSE)
indexFormat(x)<-'%Y-%m-%d'
colnames(x)<-gsub("x",symbol,colnames(x))
assign(symbol,x)
}
x==to.monthly(x,indexAt='endof', drop.time=FALSE)
x$SMA10=SMA(Ad(x),10)
qs.strategy <- "云金杞的策略"
剩下的在附件中啦。
,
花了一下午弄的,收点论坛币好下载其他学习资料不过分吧!
另外求版主加精!
最后再宣传下我自己建的一个量化投资交流群,欢迎大家交流:226224941
扫码加我 拉你入群
请注明:姓名-公司-职位
以便审核进群资格,未注明则拒绝
|
|
-
总评分: 经验 + 312
论坛币 + 104
学术水平 + 19
热心指数 + 19
信用等级 + 14
查看全部评分
|