R语言：xts包，zoo包处理时间序列的一些简单运用

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

Index<-read.table("TRD_Index.txt",header=TRUE)
SHindex<-Index[Index$Indexcd==1,]
head(SHindex,3)
class(SHindex)
Clsindex<-SHindex$Clsindex
class(Clsindex)

library(zoo)
library(xts)

Clsindex<-xts(Clsindex, order.by=as.Date(SHindex$Trddt))
head(Clsindex)               
class(Clsindex)
names(Clsindex)<-"Clsindex"
head(Clsindex,2)
head(index(Clsindex))
class(index(Clsindex))
plot(Clsindex)


# section 3
###############################################################
SHindex<-xts(SHindex[,-(1:2)],order.by=as.Date(SHindex$Trddt))
head(SHindex)

SHindex1<-coredata(SHindex)
head(SHindex1)

class(SHindex1)

# section 4
########################################################

SHindexPart<-SHindex["2014-10-08/2014-11-01"]

head(SHindexPart,2)
tail(SHindexPart,2)

SHindex2015<-SHindex["2015"]
head(SHindex2015,2)
tail(SHindex2015,2)

SHindexAfter2015<-SHindex["2015/"]
head(SHindexAfter2015,2)


SHindexBefore2015<-SHindex["/2015-01-05"]
tail(SHindexBefore2015,2)

SHindex9End<-SHindex["2014-09/2014"]
head(SHindex9End,2)
tail(SHindex9End,2)

# section 5
#########################################################
class(Clsindex)
head(Clsindex)
tail(Clsindex,1)
hist(Clsindex,breaks = 50, col = 'blue ',border = FALSE,
     main = "Histogram of Clsindex")


max(Clsindex)
min(Clsindex)
mean(Clsindex)
median(Clsindex)
sd(Clsindex)
summary(Clsindex)
代码来自：《量化投资：以R语言为工具》，需要可以购买正版图书
转载自：http://blog.sina.com.cn/s/blog_659ec1310102wnen.html

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：时间序列 zoo R语言 Index IND