## 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)
Run the code above in your browser using DataLab