quantmod 3dグラフィック

Question

私はquantmod website for a 3d graphでコードを使用しようとしています。私は指示に従い、2010年に入りました（2008年のリンクが見つかりませんでした）。私はRプロンプトで次のコマンドを入力したときただし、：

chartSeries3d0(TR) 

私は次のエラーを取得する：

Error in if (on == "years") { : missing value where TRUE/FALSE needed 

私はRの比較的新しいですので、誰も私はそれを修正することができます。

Answer 1

財務省は、この例が作成されて以来、ウェブサイトを再設計しているため、コードは何年にも関わらずデータをダウンロードしていません。 getUSTreasuries機能を使用する代わりに、FREDからデータを取り出すことができます。

library(quantmod) 
source("http://www.quantmod.com/examples/chartSeries3d/chartSeries3d.alpha.R") 

getSymbols("DGS1MO;DGS3MO;DGS6MO;DGS1;DGS2;DGS3;DGS5;DGS7;DGS10;DGS20;DGS30", 
    src="FRED") 
TR <- merge(DGS1MO,DGS3MO,DGS6MO,DGS1,DGS2,DGS3,DGS5, 
    DGS7,DGS10,DGS20,DGS30, all=FALSE) 
colnames(TR) <- c("1mo","3mo","6mo","1yr","2yr","3yr","5yr", 
    "7yr","10yr","20yr","30yr") 
TR <- na.locf(TR) 

chartSeries3d0(TR["2011"])