1

次のコードは、「GLD」という文字列を返します。

CatItUp <- function(x){
    print(x)
}

CatItUp("GLD")

このコードは、GLD 価格の末尾を返します。しかし明らかに、GLD を関数にハードコーディングしたためです。

IAmMoney <- function(x) {

    require("quantmod")

    getSymbols("GLD")

    tail(GLD)   

}

IAmMoney("GLD")

これは、ハードコードされたバージョンのように価格を返しませんが、上記の CatItUp() の例のように "GLD" 文字列を返します。どうしてか分かりません。

IAmMoney <- function(x) {

    require("quantmod")

    getSymbols("x")

    tail(x) 

}

IAmMoney("GLD")

IAmMoney() 関数内で 'GLD' を quantmod::getSymbols 関数に渡すにはどうすればよいですか?

4

3 に答える 3

3

tail(get(x))うまくいきますか？

于 2010-12-11T05:56:47.823 に答える
1

getSymbols()オプションがあるという事実を見落としていませんauto.assignか？

したがって、代わりにこれが必要になる場合があります。

R> library(quantmod)
R> silly <- function(sym) {
+     x <- getSymbols(sym, auto.assign=FALSE)
+     tail(x)
+ }
R> silly("IBM")
           IBM.Open IBM.High IBM.Low IBM.Close IBM.Volume IBM.Adjusted
2010-12-03   144.25   145.68  144.25    145.38    3710600       145.38
2010-12-06   144.54   145.87  144.52    144.99    3321800       144.99
2010-12-07   146.02   146.30  143.87    144.02    4828600       144.02
2010-12-08   144.35   145.65  143.84    144.98    4961400       144.98
2010-12-09   145.94   145.94  143.52    144.30    4405300       144.30
2010-12-10   144.88   144.95  143.73    144.82    3503800       144.82
R> silly("C")
           C.Open C.High C.Low C.Close   C.Volume C.Adjusted
2010-12-03   4.38   4.46  4.35    4.45  360277300       4.45
2010-12-06   4.45   4.50  4.43    4.45  445170000       4.45
2010-12-07   4.55   4.65  4.54    4.62 3265796000       4.62
2010-12-08   4.61   4.64  4.55    4.64  913820900       4.64
2010-12-09   4.68   4.71  4.64    4.69  731119000       4.69
2010-12-10   4.70   4.77  4.66    4.77  763156100       4.77
R>

getSymbols()「新しい変数として環境に貼り付けます」というデフォルトの動作は、多かれ少なかれ設計上の欠陥であり、私が思い出したように、そのように認識されています。

したがって、動作は によって変更できますauto.assign。

于 2010-12-11T14:51:39.273 に答える
1

quantmod は、x に割り当てた文字列と同じ名前のデータ フレームを作成するため、注意が必要です。したがって、最初は文字列値が必要で、後で x という名前でデータ フレームを呼び出します。これはまさに do.call() が役立つものです。

IAmMoney <- function(x) {
    require("quantmod")
    getSymbols(x)
    tail(get(x))
    # changed to get(x) per Ahala's input below. 
    # if you had many params you were passing, do.call()
    # might make more sense
}

IAmMoney("GLD")

auto.assign=FALSEDirkは、代わりにこれを簡単に実行できることを意味する引数の使用を指摘しました。

tail(getSymbols("GLD", auto.assign=FALSE))

于 2010-12-11T01:30:55.033 に答える