search for: labat

...# Plot the series ts.plot(xleft, xright2, lty=lty, col=col, main=main, ylab=ylab, xlab=xlab, lwd=lwd, gpars=gpars) # Add the right vertical axis labels lab <- seq(round(min(xright), digits), round(max(xright), digits), length=ticks) labAt <- seq(min(xright2), max(xright2), length=ticks) axis(side=4, labels=lab, at=labAt) } are there a better way to plot what i want? thks. guillaume. //////////////////////////////////////////////////////////// // Webmail Oreka : http://www.oreka.com //////////////////////////////////...

...) xright2 <- xright2 + meanScale # Plot the series ts.plot(xleft, xright2, lty=lty, col=col, main=main, ylab=ylab, xlab=xlab, lwd=lwd, gpars=gpars) # Add the right vertical axis labels lab <- seq(round(min(xright), digits), round(max(xright), digits), length=ticks) labAt <- seq(min(xright2), max(xright2), length=ticks) axis(side=4, labels=lab, at=labAt) } Comments and suggestions for this function would be helpful. A text file with the function is available at my website, http://www.bjornarnar.net/hugbunadur/R/ts.plot.2Axis.R Best regards, Bjorn Arnar Haukss...