\Header{case/variable.names}{Case and Variable Names of Fitted Models}
\alias{case.names}{case/variable.names}
\methalias{case.names.default}{case/variable.names}
\methalias{case.names.lm}{case/variable.names}
\alias{variable.names}{case/variable.names}
\methalias{variable.names.default}{case/variable.names}
\methalias{variable.names.lm}{case/variable.names}
\keyword{regression}{case/variable.names}
\keyword{models}{case/variable.names}
\begin{Description}\relax
Simple utilities returning (non-missing) case names, and
(non-eliminated) variable names.\end{Description}
\begin{Usage}
\begin{verbatim}
case.names(obj, ...)
case.names.lm(obj, full = FALSE)

variable.names(obj, ...)
variable.names.lm(obj, full = FALSE)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{obj}] an \R{} object, typically a fitted model.
\item[\code{full}] logical; if \code{TRUE}, all names (including zero
weights,..) are returned.
\end{ldescription}
\end{Arguments}
\begin{Value}
A character vector\end{Value}
\begin{SeeAlso}\relax
\code{\Link{lm}}\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
x <- 1:20
y <-  x + (x/4 - 2)^3 + rnorm(20, s=3)
names(y) <- paste("O",x,sep=".")
ww <- rep(1,20); ww[13] <- 0
summary(lmxy <- lm(y ~ x + I(x^2)+I(x^3) + I((x-10)^2),
                   weights = ww), cor = TRUE)
variable.names(lmxy)
variable.names(lmxy, full= TRUE)# includes the last
case.names(lmxy)
case.names(lmxy, full = TRUE)# includes the 0-weight case
\end{ExampleCode}
\end{Examples}

