如何在进一步编码过程中引用函数的参数？

Question

如何在进一步编码过程中参考函数参数的选择？---一个具体的例子：

library("quantmod")

INDEX<-get(getSymbols("^GDAXI", from="2006-01-01"))
INDEX.SMA<-SMA(INDEX[,4],n=360)

INDEX<-INDEX[,4]
colnames(INDEX)<-c("Close")
colnames(INDEX.SMA)<-"360"

函数SMA（INDEX，n = 360）生成INDEX中收盘价的移动平均线。

我希望所选的360参数自动反映在colnames（INDEX.SMA）中。因此，我不想手动将其更改为＆＃34; 200＆＃34;，在将代码更改为

后进一步向下四行

INDEX.SMA<-SMA(INDEX[,4],n=200)

更换

colnames(INDEX.SMA)<-"360"

与

colnames(INDEX.SMA)<-as.character(length(INDEX.SMA)-sum(!is.na(INDEX.SMA))+1)

完成了这个具体例子的工作。有更通用的解决方案吗？

Answer 1

如果你需要在多个地方使用一个值，你应该把它变成一个变量

library("quantmod")

mytime<-360

INDEX<-get(getSymbols("^GDAXI", from="2006-01-01"))
INDEX.SMA<-SMA(INDEX[,4],n=mytime)

INDEX<-INDEX[,4]
colnames(INDEX)<-c("Close")
colnames(INDEX.SMA)<-as.character(mytime)