n = 250; m = n
r = function(x,y) {
return(4*x*y)
}
X = as.matrix(cbind(runif(n, 0, 1), runif(n, 0, 1)))
Y = as.matrix(cbind(rbeta(m, 0.5, 0.3), rbeta(m, 0.5, 0.4)))
starSampler(X, Y, r, H = 3, S = 20)
Run the code above in your browser using DataLab