quantmod 및 예측 패키지의 데이터 시리즈로 예측

Question

저는 ts 및 xts 오브젝트를 처음 사용했습니다.

1 : 시계열 데이터를 다룰 때

, 나는

require(quantmod) 
require(forecast) 
ticker <- "^GSPC" 
getSymbols(ticker, src="yahoo", to = "2013-12-31") 
prices <- GSPC[,6] # First get data using package quantmod 
# then forecasting using package forecast 
prices.ts <- as.ts(prices) 
prices.ets <- ets(prices.ts) 
prices.fore <- forecast(prices.ets, h=10) 
# then plot 
plot(prices.fore, xaxt = "n") 

내 문제가 문제가 발생했습니다. CSPC 파일에 날짜가있는 GSPC를 저장하려고했을 때. 내가 검색이

write.zoo((GSPC, file = "GSPC.csv", sep = ",", qmethod = "double"))

오류 메시지를 시도 : Error: unexpected ',' in "write.zoo((GSPC,", 나는 구문을 확인, 올바른 것 같다, 나는 다른 조합을 시도했다. 모두 비슷한 오류 메시지와 함께 실패했습니다.

나는 또한 index(GSPC)을 얻으려고 시도했다.

그리고 나서 cbind(index(GSPC), GSPC[, 6]). 또한 ..

오류 메시지에 실패 Error in merge.xts(..., all = all, fill = fill, suffixes = suffixes) : dims [product 1762] do not match the length of object [3524]

을하지만 길이

> length(GSPC[,6]) 
[1] 1762 
> length(index(GSPC)) 
[1] 1762 

2를 선택한 경우. 플롯에는 X-실험실 및 y 축 실험실이 없다이

같다. 나는 수락 한 대답의 방법을 시도했다 here를 배치했다. 그러나 실패했다.

특히 다음 코드의 목적을 알지 못합니다. 줄거리의 모양이 바뀌는 것처럼 보이지만 모양을 전혀 변경하지는 않습니다. 나는 어떤 점을 잃어 버릴 지 모르겠다.

a = seq(as.Date("2011-11-01"), by="weeks", length=11) 
axis(1, at = decimal_date(a), labels = format(a, "%Y %b %d"), cex.axis=0.6) 
abline(v = decimal_date(a), col='grey', lwd=0.5) 

또한 as.Date ("2013-01-01")에서 플롯하려고합니다.

몇 가지 제안 사항을 제공해 주시겠습니까?

고맙습니다.

Answer 1

1. 추가 괄호가 있습니다. 나는 당신이 당신의 index 및 cbind 명령을 달성하기 위해 노력하고있다 모르는

   write.zoo(GSPC, file = "GSPC.csv", sep = ",", qmethod = "double")

   를 사용합니다. index은 데이터를 제공하지 않습니다. 그리고 만약 당신이 GSPC의 6 번째 열을 원한다면 GSPC[,6]을 사용하십시오.

2. 비표준 플로팅 크기가있는 것 같습니다. 새 그래픽 창을 시작하면 기본값으로 재설정됩니다. 그러나 명시 적으로 지정하지 않으면 xlab 및 ylab을 얻지 못할 것입니다. 그리고 설정했기 때문에 x 축을 얻지 못할 것입니다. xaxt="n"

3. 마지막 코드 블록에 관한 질문은 귀하의 데이터와 전혀 관련이없는 것 같습니다.