请选择 进入手机版 | 继续访问电脑版
楼主: tianjixuetu
24723 141

[交易策略] 【原创】R语言--中国银行投资组合-基于均线的投资策略分析(附源代码)   [推广有奖]

教授

52%

还不是VIP/贵宾

-

TA的文库  其他...

投资理财书籍

威望
0
论坛币
10397 个
通用积分
44.9129
学术水平
67 点
热心指数
67 点
信用等级
61 点
经验
1211 点
帖子
714
精华
3
在线时间
1557 小时
注册时间
2009-12-16
最后登录
2024-3-18

tianjixuetu 在职认证  发表于 2015-5-9 18:43:52 |显示全部楼层 |坛友微信交流群
相似文件 换一批

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

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

感谢您参与论坛问题回答

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

+2 论坛币
用了一下午,做了一个简单的策略。分析的是中国上市银行(共16家),从2007年到2014年,当价格大于月均线时买入,当价格小于月均线是卖出,初始资金是100万人民币,测试一下能够获利多少?    用的是winXP系统,R3.10版本,主要用quantstrat包进行分析。
附分析结果图:

银行业股票组合测试.jpeg


业绩表现图.jpeg


银行间收益率的对比.jpeg


银行组合的收益曲线.jpeg



代码运行展示:


代码:


本帖隐藏的内容

完整代码.zip (2.13 KB, 需要: 10 个论坛币)


1.png



2.png


3.png


4.png


5.png


6.png


7.png


8.png


9.png


10.png


12.png


13.png

  


部分代码文字版:
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


二维码

扫码加我 拉你入群

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

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

关键词:策略分析 投资组合 中国银行 投资策略 源代码 中国银行 投资组合 投资策略 源代码

已有 8 人评分经验 论坛币 学术水平 热心指数 信用等级 收起 理由
crystal8832 + 3 + 3 + 3 对论坛有贡献
accumulation + 100 + 1 + 1 + 1 精彩帖子
日新少年 + 2 + 2 精彩帖子
kongqingbao280 + 20 + 3 精彩帖子
xujingtang + 80 + 1 奖励积极上传好的资料
chengzhifu2013 + 60 + 24 + 4 + 4 精彩帖子
fantuanxiaot + 52 + 80 + 3 + 3 + 3 精彩帖子
LIXUANHANK + 5 + 5 + 5 精彩帖子

总评分: 经验 + 312  论坛币 + 104  学术水平 + 19  热心指数 + 19  信用等级 + 14   查看全部评分

本帖被以下文库推荐

今天,我持续不断地改进自己,在各方面,我会越来越好!
m0606 发表于 2015-5-9 19:17:39 |显示全部楼层 |坛友微信交流群

使用道具

Elena3 发表于 2015-5-9 20:19:46 |显示全部楼层 |坛友微信交流群
【原创】R语言--中国银行投资组合-基于均线的投资策略分析(附源代码)

使用道具

mike68097 发表于 2015-5-9 20:50:40 |显示全部楼层 |坛友微信交流群

使用道具

duoduoduo 在职认证  发表于 2015-5-9 20:59:21 |显示全部楼层 |坛友微信交流群
看看,真是有心人啊

使用道具

maxclchen 发表于 2015-5-9 21:13:35 |显示全部楼层 |坛友微信交流群
good job !

使用道具

看看怎么样

使用道具

lisong-1227 学生认证  发表于 2015-5-9 22:19:14 |显示全部楼层 |坛友微信交流群

使用道具

xujinnijux 发表于 2015-5-9 22:57:36 |显示全部楼层 |坛友微信交流群
感谢兰州分箱

使用道具

aeoluseros 发表于 2015-5-9 23:55:33 |显示全部楼层 |坛友微信交流群
quantstrat似乎停更了…R3.2.0下没有…anyway,感谢楼主

使用道具

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注jr
拉您进交流群

京ICP备16021002-2号 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问:王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2024-3-29 20:11