2012-12-21 31 views
0

我試圖用動物園包但不幸的是它的顯示,當我嘗試使用它的一個錯誤。錯誤上載動物園庫

由於事實上,那我得到的結果是錯誤的最後一行。

> library(zoo) 

Attaching package: ‘zoo’ 

The following object(s) are masked from ‘package:base’: 

    as.Date, as.Date.numeric 

> library(zoo) 
> sbux=read.csv(file="sbuxPrices.csv",header=TRUE) 
> dates.sbx = as.yearmon(sbux.df$Date, format="%m/%d/%Y") 
> sbux.z=zoo(x=sbux$Adj.Close, order.by=dates.sbx) 
> class(sbux.z) 
[1] "zoo" 
> head(sbux.z) 
Jan 0000 Feb 0000 Mar 0000 Apr 0000 May 0000 Jun 0000 
    7.66  8.41 10.73  7.24  8.14  9.14 

編輯: (1)我的數據是http://faculty.washington.edu/ezivot/econ424/sbuxPrices.csv,相信有與它沒有任何問題我的講義工作與它得到正確的結果。 (2)刪除了rstudio標籤。我認爲我編碼的事實有所不同!

謝謝!

+0

嘗試'網址< - 「http://faculty.washington.edu/ezivot/econ424/sbuxPrices.csv 「; z < - read.zoo(URL,header = TRUE,sep =「,」,format =「%m /%d /%Y」)' –

回答

1

簡述:

  1. 你不顯示數據,我懷疑你的格式字符串是完全錯誤的。

  2. 請重新閱讀詳細動物園包的徹底的護身符。

編輯:現在是你們成就了重複性通過提供數據:

R> sbux <- read.csv("http://faculty.washington.edu/ezivot/econ424/sbuxPrices.csv", 
+     stringsAsFactors=FALSE) 
R> summary(sbux) 
    Date    Adj.Close  
Length:181   Min. : 1.19 
Class :character 1st Qu.: 3.94 
Mode :character Median : 9.23 
        Mean :12.38 
        3rd Qu.:18.93 
        Max. :37.76 
R> 
R> 
R> sbuxZoo <- zoo(sbux[,"Adj.Close"], 
+     order.by=as.Date(sbux[,"Date"], "%d/%m/%Y")) 
R> 
R> head(sbuxZoo) 
1993-01-04 1993-01-06 1993-01-07 1993-01-09 1993-01-10 1993-01-11 
     1.21  1.53  1.48  1.71  1.67  1.39 
R> 
+0

謝謝!已經完成了你所說的。 – Gekko