\name{lead.lag}
\alias{lead.lag.fts}
\alias{lead}
\alias{lag.fts}
\alias{lead.fts}

\title{Shift an Fts ojbect in time}
\description{
  Shift an Fts ojbect forward or backwards in time be the supplied
  number of periods
}
\usage{
\method{lead}{fts}(x, k, \dots)
\method{lag}{fts}(x, k, \dots)
}
\arguments{
  \item{x}{ An Fts object }
  \item{k}{ number of periods to shift }
  \item{\dots}{ further arguments to function }
}
\details{
  removed elements are replaced with NA
}
\value{
  an Fts object
}
\author{ Whit Armstrong }
\examples{
x <- fts(index=seq(from=Sys.Date(),by="days",length.out=10),data=1:10)
print(x)
lag(x,1)
lead(x,1)
}
\keyword{ts}
