\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)

# The data set does not have entry date, use the midpoint of the study
efit <- survexp(~ ratetable(sex=sex,age=age*365.35,year=as.Date('1979/1/1')) +
            sex, data=pbc,  times=(0:24)*182)
## Not run: 
plot(fit, mark.time=F, xscale=365.25, xlab="Years post diagnosis",
        ylab="Survival")
lines(efit, col=2, xscale=365.25) # Add the expected survival line
## End(Not run)
\end{ExampleCode}
\end{Examples}

