search for: meanscale

Displaying 2 results from an estimated 2 matches for "meanscale".

2005 Aug 02
1
multiple scale
...# Number of time series on left vertical scale lty <- c(1:(k+1)) # Line types col <- c(1:(k+1)) # Line colors # Scale time series on right vertical axis scale <- (max(xleft)-min(xleft))/(max(xright)-min(xright)) xright2 <- xright*scale meanScale <- mean(xleft) - mean(xright2) 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(m...
2004 Mar 24
0
High/low level: Plot 2 time series with different axis (left and ri ght)
...matrix(xleft)) # Number of time series on left vertical scale lty <- c(1:(k+1)) # Line types col <- c(1:(k+1)) # Line colors # Scale time series on right vertical axis scale <- (max(xleft)-min(xleft))/(max(xright)-min(xright)) xright2 <- xright*scale meanScale <- mean(xleft) - mean(xright2) 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),...