[S] GRAPHIC DEVICE

SOFIA Stephano (cs0sso@cis.sunderland.ac.uk)
Wed, 10 Jun 1998 12:37:51 +0100


Dear all,
I would like to plot a time series not in only one graph, but cut and stack
it so that the curve can be banked to 45 degrees.
The following function aims to divide a time series of 300 elements in 12
graphs, 4 of them for each page, and each of them banked to 45 degrees, but
there are some errors.
Can anybody help me to find the right commands to get what I would like?

function(series)
{
frame()
par(mfrow = c(4, 1))
for(i in 1:12) {
x <- c((1 + (i - 1) * 25):(1 + (i - 1) * 25 + 24))
y <- stagione[(1 + (i - 1) * 25):(1 + (i - 1) * 25 + 24)]
o <- order(x)
dx <- diff(x[o])
dy <- diff(y[o])
plot(y ~ x, type = "l", aspect = banking(dx/diff(range(x)),
dy/diff(range(y))))
}
}

Many thanks for your disponibility

Stefano Sofia

-----------------------------------------------------------------------
This message was distributed by s-news@wubios.wustl.edu. To unsubscribe
send e-mail to s-news-request@wubios.wustl.edu with the BODY of the
message: unsubscribe s-news