## The function is currently defined as
function (file, model, sampler = NULL) {
samples <- dget(file)
results <- list(samples = samples, model = model, sampler = sampler)
class(results) <- "mtc.result"
}
Run the code above in your browser using DataLab