前提：加载tseries，爬取时再结合quantmod，PerformanceAnalytics
思路1：gyd=xts(gyd[,2],as.Date(gyd[,1]))
思路2：prc.ALL3<-ts(prc.ALL2,start=c(2008,1,1),end=c(2018,1,11),freq=12)
思路1：gyd=xts(gyd[,2],as.Date(gyd[,1]))
思路2：prc.ALL3<-ts(prc.ALL2,start=c(2008,1,1),end=c(2018,1,11),freq=12)
