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

