[R] r-plot help-it prints outside frame

[piranha piranha]

Hello,

i have been doing browns exponential smooting for myself and have a little
trouble with plotting values:

    par(xpd=TRUE)
    plot(vector,xlab="Period",ylab="Values")
    legend(max(vector), legend = c("Original values", "Estimated values"),
col=c("blue","red"),lwd=0.5, cex=1, xjust=0.1, yjust=-0.3)
    lines (vector, type = "o", col="blue")  #original values
    lines (est_vector, type = "o", col="red") # estimated values
    lines (length(vector)+1,forecast, type = "o", col="green") #forecasted
value

i get result as in pdf file attached in this email.

Two red values are "outside of frame" and i need also to get green value
"inside of a frame".Can you help me? I am really stucked with this. thx!
-------------- next part --------------
A non-text attachment was scrubbed...
Name: Rplot.pdf
Type: application/pdf
Size: 4748 bytes
Desc: not available
URL: <https://stat.ethz.ch/pipermail/r-help/attachments/20121010/b86c66be/attachment.pdf>