### Name: lastMcmc
### Title: MCMC values for the last iteration
### Aliases: lastMcmc lastMcmc<-
### Keywords: methods

### ** Examples

  ## Not run: 
##D     data(expressionSetList)
##D     xparam <- new("XdeParameter", phenotypeLabel="adenoVsquamous",
##D                   esetList=expressionSetList)
##D     iterations(xparam) <- 10  
##D     fit <- xde(xparam, esetList=expressionSetList)
##D     ##Do more iterations and use a different seed
##D     firstMcmc(xparam) <- lastMcmc(fit)
##D     seed(xparam) <- 97814
##D     fit2 <- xde(xparam, esetList=expressionSetList)
##D 
##D     ##Or
##D     fit2 <- xde(xparam, esetList=expressionSetList, outputMcmc=fit)
##D   
## End(Not run)



