2012-04-19 148 views
1

我试图运行Data Mining With R book提供的代码。它基本上采用SP500指数(GSPC)的报价数据,并建立一个预测函数(T.ind)来预测未来n天的报价。R数据挖掘语法

library(DMwR) 
#load S&P500 Dataset 
data(GSPC) 

# Create a Prediction function T based on which Buy/Sell/Hold decision 
# will be taken. target variation margin is 2.5% 
T.ind <- function(quotes,tgt.margin=0.025,n.days=10) { 
    v <- apply(HLC(quotes),1,mean) 
    r <- matrix(NA,ncol=n.days,nrow=NROW(quotes)) 

    for(x in 1:n.days) { 
    r[,x] <- Next(Delt(v,k=x),x) 
    } 

    x <- apply(r,1,function(x) sum(x[x > tgt.margin | x < -tgt.margin])) 

    if (is.xts(quotes)) 
    xts(x,time(quotes)) 
    else 
    x 
} 

#Plot candle chart for 3 months of Index with Avg. price and Parameter T. 
candleChart(last(GSPC,'3 months'),theme='white',TA=NULL) 

addAvgPrice <- newTA(FUN=avgPrice,col=1,legend='AvgPrice') 
addT.ind <- newTA(FUN=T.ind,col='red',legend='tgtRet') 
addT.ind() 

我的问题是如何T.indnewTA()函数调用调用。如何将选定期间的报价值传递给T.ind函数。请告诉我。

+1

在R提示符处输入'addT.ind'并查看该函数。第三行显示了如何调用T.ind。 – BenBarnes 2012-04-19 20:51:26

回答

3

这有点像格或ggolot2情节,但没有“+”号。但是,等同于“特征添加”的操作正在通过副作用传递。该图不仅是一个2D显示,而且也是工作区中的一个对象。当您调用addT.ind()时,其影响正在应用于当前活动的图表对象,该图表对象具有由HLC()在隐式访问candleChart()产品结果的上下文中收集的数据。

+0

谢谢你的帮助 – Amey 2012-05-01 20:40:28