.BG
.VE $Header: /usr3/s/current/s/.help/RCS/time,v 1.2 83/12/30 19:35:57 rab Exp $
.FN time
.FN cycle
.TL
time  cycle: Create Time Vector
.CS
time(x)
cycle(x)
.PP
.AG x
time-series.  Missing values (NAs) are allowed.
.RT
time-series with same `start', `end' and `nper' as `x'.
`time' returns  the time value at each point, e.g., the
value at January, 1973 is 1973.0, and the value at July 1973 is
1973.5.  `cycle' returns the period associated with
each observation, e.g., 1 for each January, etc.
.EX
cgrowth <- code(cycle(growth), 1:12, month.name)
tapply(growth, cgrowth, "mean")   # mean growth for each month
.KW ts*
.WR
