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

10关注
69粉丝

已卖：4218份资源

教授

53%

还不是VIP/贵宾

TA的文库 其他...

投资理财书籍

威望: 0 级
论坛币: 9679 个
通用积分: 38.8509
学术水平: 67 点
热心指数: 67 点
信用等级: 61 点
经验: 1202 点
帖子: 711
精华: 3
在线时间: 1570 小时
注册时间: 2009-12-16
最后登录: 2025-10-27

楼主

tianjixuetu

发表于 2015-5-9 18:43:52 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

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

银行业股票组合测试.jpeg

业绩表现图.jpeg

银行间收益率的对比.jpeg

银行组合的收益曲线.jpeg

代码运行展示：

代码：

本帖隐藏的内容

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

2015-5-9 18:41:49 上传

策略的完整代码
需要: 10 个论坛币 [购买]

部分代码文字版：
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 <- "云金杞的策略"
剩下的在附件中啦。