\HeaderA{lastMcmc}{MCMC values for the last iteration}{lastMcmc}
\aliasA{lastMcmc<\Rdash}{lastMcmc}{lastMcmc<.Rdash.}
\keyword{methods}{lastMcmc}
\begin{Description}\relax
MCMC values for the last iteration.  Useful if more iterations are needed.
\end{Description}
\begin{Usage}
\begin{verbatim}
  lastMcmc(object)
\end{verbatim}
\end{Usage}
\begin{Arguments}
\begin{ldescription}
\item[\code{object}] Object of class \code{XdeMcmc}
\end{ldescription}
\end{Arguments}
\begin{Value}
An environment.
\end{Value}
\begin{Author}\relax
R. Scharpf
\end{Author}
\begin{SeeAlso}\relax
\code{\LinkA{firstMcmc}{firstMcmc}}
\end{SeeAlso}
\begin{Examples}
\begin{ExampleCode}
  ## Not run: 
    data(expressionSetList)
    xparam <- new("XdeParameter", phenotypeLabel="adenoVsquamous",
                  esetList=expressionSetList)
    iterations(xparam) <- 10  
    fit <- xde(xparam, esetList=expressionSetList)
    ##Do more iterations and use a different seed
    firstMcmc(xparam) <- lastMcmc(fit)
    seed(xparam) <- 97814
    fit2 <- xde(xparam, esetList=expressionSetList)

    ##Or
    fit2 <- xde(xparam, esetList=expressionSetList, outputMcmc=fit)
  ## End(Not run)
\end{ExampleCode}
\end{Examples}

