bt <- collapseBatch(y(BatchModelExample), batch(BatchModelExample))
newBatchModel <- BatchModel(y(BatchModelExample), k(BatchModelExample),
bt, hyperParams(BatchModelExample),
mcmcParams(BatchModelExample))
Run the code above in your browser using DataLab