Hi all,

I´m plotting cf (with two axis) and addind a shaded color up and down on
the 0 line x axis (tfr1 is the time). The thing is that when I plot this
graph adds a line up on the "first" plot.

I hope you can understand what I mean.

How should I erase this sencond line, it is suposed they have the same
data? Why zero line doesn´t complete the shaded area?

plot(cf[,1],type="l",col="black", xlab="Time", ylab="Correlation", axes=F)
grid()

cord.x <- c(0,1:length(cf[,1]), length(cf[,1]))
cord.y <- c(0,cf[,1],0)
polygon(cord.x,cord.y,col='skyblue')
par(new=T)
variable<-matrix(0,length(cf[,1]),1)
plot(tfr1[(T+Tcor):(nrow(tfr1)),1],variable,type="l",ylab="",col="black",xlab="")
mtext("Correlation",side=4,line=2,col=4)

title("Dinamic Correlation",font=4)

	[[alternative HTML version deleted]]

