\begin{Schunk}
\begin{Sinput}
 fit <- list(call = call, call1 = object$call, call2 = object$call1, nmis = object$nmis, m = m, qhat = qhat, u = u, qbar = qbar, ubar = ubar, b = b, t = t, r = r, dfcom = dfcom, df = df,         fmi = fmi, lambda = lambda)
\end{Sinput}
\end{Schunk}
