## Not run:
# data(expressionSetList)
# params <- new("XdeParameter", phenotypeLabel="adenoVsquamous",
# esetList=expressionSetList)
#
# ##the replacement method for burnin is called for its side effect of
# ##providing default values of storing MCMC chains
# output(params)[2:22]
# burnin(params) <- FALSE
# output(params)[2:22]
# burnin(params) <- TRUE
# output(params)[2:22]
# ## End(Not run)
Run the code above in your browser using DataLab