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

自创建该示例以来，财政部已经重新设计了其网站，因此代码不会下载任何数据(无论您输入哪一年)。您可以直接从FRED中提取数据，而不是使用getUSTreasuries函数。

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"])