# NOT RUN {
fun <- function(ind,n,data) sapply(1:length(ind), function(i) sum(runif(n[i])<=data[ind[i]]));
i <- mmctSampler(fun,num=500,data=runif(500));
samples <- getSamples(i, c(1,2), c(2,2));
# }
Run the code above in your browser using DataLab