#create a dummy process and sample some values from it
FVDDP = initialize(7, function(x) rbeta(x, 3,3),
function(x) dgamma(x, 3,3), FALSE)
FVDDP = update(FVDDP, rep(0:1, 2))
posterior.sample(fvddp = FVDDP, N = 100)
Run the code above in your browser using DataLab