data(geco_small)
data(geco_small_result)
# Add fifth file to previous four-file link result
filtered <- thinsamples(geco_small_result, 2) # Filter ensemble to 2 - very small for example
file5.result <- SMCMCupdate(filtered, geco_small[[5]],
nIter.jumping=1, nIter.transition=1, # Very small run for example
proposals.jumping="LB", proposals.transition="LB",
blocksize=5)
Run the code above in your browser using DataLab