\HeaderA{ratetable}{Ratetable reference in formula}{ratetable}
\aliasA{is.na.ratetable}{ratetable}{is.na.ratetable}
\aliasA{print.ratetable}{ratetable}{print.ratetable}
\aliasA{summary.ratetable}{ratetable}{summary.ratetable}
\aliasA{[.ratetable}{ratetable}{[.ratetable}
\aliasA{[.ratetable2}{ratetable}{[.ratetable2}
\keyword{survival}{ratetable}
\begin{Description}\relax
This function matches variable names in data to those in a ratetable for
\code{\LinkA{survexp}{survexp}}
\end{Description}
\begin{Usage}
\begin{verbatim}
ratetable(...)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{...}] tags matching dimensions of the ratetable and variables
in the data frame (see example)
\end{ldescription}
\end{Arguments}
\begin{Value}
A data frame
\end{Value}
\begin{SeeAlso}\relax
\code{\LinkA{survexp}{survexp}},\code{\LinkA{survexp.us}{survexp.us}},\code{\LinkA{is.ratetable}{is.ratetable}}
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}

fit <- survfit(Surv(time, status) ~ sex, pbc,subset=1:312)
if (require(date)){
tdata <- data.frame(agedays=pbc$age*365.24, sex=pbc$sex +1,
                    year= rep(mdy.date(1,1,1976), nrow(pbc)))
tdata<-tdata[1:312,] ## only the randomised people, with no missing data

efit <- survexp(~ sex+ratetable(sex=sex,age=agedays,year=year), data=tdata, ratetable=survexp.us, times=(0:24)*182)
}

\end{ExampleCode}
\end{Examples}