Hi,
I think I got it. I will try tomorrow morning and if works I will writte
the code if you want please no send the question to avoid others time
Thanks a lot
2013/3/1 Jose Narillos de Santos <narillosdesantos@gmail.com>
> Hi all,
>
> I want to plot moving correlation and to complete color on the correlation
> line and "0" line but it appears an image as attached.
>
> I attach code to see if someone can help.
>
> plot(cf,type="l",col="black", xlab="Time",
ylab="Correlation",axes=F)
>
> grid()
>
> polygon(c(1, 1:st,st),c(0, cf, 0), col = "blue")
>
> abline(h = 0, lwd = 2, col = "black")
>
> title("Dinamic Correlation",font=4)
>
> par(new=T)
>
> variable<-matrix(0,nrow(bBT),1)
>
>
plot(tfr1,variable,type="l",ylab="",col="black",xlab=""
)
>
> mtext("Correlation",side=4,line=2,col=4)
>
>
>
[[alternative HTML version deleted]]