R语言金融数据分析 – 二条均线打天下 中没有给出源码的几个函数的个人实现

参加了此次wot分享，对R语言预测股票走势很感兴趣，回来后做了点功课，对例子中的没有提供源码的部分做了补充，分享给大家：

# 散点数据

genPoint<-function(pdata,ldata){

pdata<-data.frame(Index=as.Date(array(index(ldata))),Series=array(ifelse(ldata$ma20>ldata$Value,"up","down")),Value=array(ldata$ma20))

pdata

}

#交易信号

Signal<-function(cdata,pdata){

p=0

r0<-NULL

r1<-NULL

rn<-NULL

for(i in 1:nrow(pdata)) {

if(pdata$Series[i]=='down') {

if( p==0) {

r0<-c(r0,"B")

r1<-c(r1,cdata$Close[i])

rn<-c(rn,index(cdata[i]))

}

p<-1

}

if(pdata$Series[i]=='up'){

if( p==1) {

r0<-c(r0,"S")

r1<-c(r1,cdata$Close[i])

rn<-c(rn,index(cdata[i]))

}

p<-0

}

}

res<-data.frame(Value=r1,op=r0)

rownames(res)<-as.Date(rn)

return(res)

}

#交易信号

Signal<-function(cdata,pdata){

p=0

r0<-NULL

r1<-NULL

rn<-NULL

for(i in 1:nrow(pdata)) {

if(pdata$Series[i]=='down') {

if( p==0) {

r0<-c(r0,"B")

r1<-c(r1,pdata$Value[i])

rn<-c(rn,as.Date(index(cdata[i])))

}

p<-1

}

if(pdata$Series[i]=='up'){

if( p==1) {

r0<-c(r0,"S")

r1<-c(r1,pdata$Value[i])

rn<-c(rn,as.Date(index(cdata[i])))

}

p<-0

}

}

res<-data.frame(Value=r1,op=r0)

rownames(res)<-as.Date(rn)

}