标签：
1)求出Apple公司在2013.1-2013.10的股票总成交量
library(quantmod)
new.environment<-new.env() #创建一个新的对象集
getSymbols("AAPL",env=new.environment,src="yahoo",from="2013-01-01",to="2013-10-31")
sum(Vo(get("AAPL",env=new.environment)))
#22534754200.
2)找出这些股票暴涨暴跌的时间点（例如开盘价或收盘价比前一天涨跌幅度超过2%），通过搜索引擎寻找是什么原因导致这些暴涨暴跌，观察（或用程序分析）数据，看就暴涨暴跌事件是否有可以利用的买卖规律
getSymbols(c("AAPL","ORCL","MSFT","GOOG"),src="yahoo",env=new.environment,from="2013-01-01",to="2015-12-31")
AAPL<-Delt(Cl(get("AAPL",env=new.environment)))
length(AAPL[which(AAPL>0.02),])
plot(AAPL[which(AAPL>0.02),])
解读：
2007年，发布iPhone与iPodtouch。2007年1月4日第一代iphone推出前期：iPhone是苹果公司推出的第一代智能電話，该款智能電話于2007年1月9日正式发布，并于同年6月29日正式发售。
2008年，发布MacBookAir，当时最薄的笔记本电脑。
2008年，发布第四代iPodnano和第二代iPodtouch。
2008年，乔布斯在MacWorld上发布了新设计的MacBook和MacBookPro，以及全新的24英寸AppleLEDCinemaDisplay。
2009年，乔布斯重新回归苹果总部工作。传2009年2月1日发布ipad2。
2010年，苹果公司平板电脑iPad正式发布。2010年9月1日苹果召开产品发布会。
2010年，苹果iPad正式在美国发售。
2010年，苹果公司的市值在当日纽约股市收市时达到2220亿美元，仅次于埃克森美孚(ExxonMobil)，成为美国第二大上市公司，微软当日市值为2190亿美元。
2012年5月21日，苹果和三星之间的专利诉讼将于5月21日和22日在旧金山的某家法院进行裁决。
ORCL<-Delt(Cl(get("ORCL",env=new.environment)))
length(ORCL[which(ORCL>0.02),])
plot(ORCL[which(ORCL>0.02),])
ORCL[which(ORCL>0.02),]
解读：
2007年2月1日，甲骨文五大最新版本软件上市包括Oracle电子商务套件第12版等。
2009年9月18日: 9.19甲骨文称，尽管美国经济动荡，但因软件销售额坚挺，甲骨文第一财季利润上升了28%，达到华尔街预期。
2010年5月10日，甲骨文收购SUN公司后期。
2012年6月6日，甲骨文于6月7日发布了自己的云计算战略。
MSFT<-Delt(Cl(get("MSFT",env=new.environment)))
length(MSFT[which(MSFT >0.02),])
plot(MSFT[which(MSFT>0.02),])
MSFT[which(MSFT>0.02),]
解读：
2007年1月发布中文版Vista。
2008年5月4日，自2月1日微软出价446亿美元洽购雅虎以来，微软终于宣布放弃此项收购。
2009年12月3日，微软公司宣布设立“消费者行动日”，在全球70多个国家同步开展各种教育、宣传和执法行动，打击非法的盗版和假冒软件，保护消费者免受危害，并提升人们对盗版软件风险的认识。
2011年6月，微软香港8日宣布推出全新“云端”支援计划。
2013年1月的时候，微软在CES上首次展示了IllumiRoom。
2014年4月1日微软宣布任命三名高管分别负责其云服务、设备和Xbox游戏部门，这是新任CEO萨提亚·纳德拉(Satya Nadella)进行的第一次管理层改组。
2014年4月18日，微软研究院展示SurroundWeb:IllumiRoom后继有人。
GOOG<-Delt(Cl(get("GOOG",env=new.environment)))
length(GOOG [which(GOOG >0.02),])
plot(GOOG[which(GOOG>0.02),])
GOOG[which(GOOG>0.02),]
解读：
2014年4月Google I/O 2014开放注册。
2014年5月27日Google在中国大陆被屏蔽。
2014年谷歌开发者大会（Google I/O）将于6月25日至26日在美国旧金山举行，业内人士预期，本次大会将主要围绕谷歌全新车载操作系统、健康数据追踪平台G谷歌 Fit、智能家居androidtv平台；可穿戴设备谷歌眼镜和搭载安卓Wear的智能手表等受到业界高度关注的新品展开。
3)截取一段时间内这四家公司股价数据（注意分红派息除权对股价的影响），用R中的相关性分析判断股价之间的相关性，或者用R基础课程第八周所讲的MIC指标对其进行分析
getSymbols(c("AAPL","ORCL","MSFT","GOOG"),src="yahoo",env=new.environment,from="2015-06-01",to="2015-12-31")
m<-cbind(Ad(get("AAPL",env=new.environment)),Ad(get("ORCL",env=new.environment)),Ad(get("MSFT",env=new.environment)),Ad(get("GOOG",env=new.environment)))
library(psych)
corr.test(as.data.frame(m))
library(corrplot)
corrplot.mixed(cor(m), lower = "ellipse", upper = "circle")
AAPL与ORCL呈正相关，相关性最大，为0.86；
AAPL与MSFT负相关性较小，为0.14；
AAPL与GOOG的负相关性为0.47；
ORCL与MSFT相关性极小，仅为0.04，和GOOG的负相关性为0.44；
MSFT与GOOG正相关性较大，为0.85。
标签：
原文地址：http://www.cnblogs.com/changbosha/p/5765978.html
