R: lags and plots

Hi all

I want to calculate certain lags of a time series and plot them
simultaneously on a graph. can anyone help?

Something like this?

R> x <- ts(cumsum(rnorm(20)), start = 0, freq = 10)
R> plot(x)
R> lines(lag(x, k = -1), col = 4)

hth
Z