# get 10 random variables each with 100 samples
x <- matrix(runif(1000), 100, 10)
y <- matrix(runif(1000), 100, 10)
# do something interesting
y[,2] <- 3.0 * (x[,8] + x[,9])
z <- gpuMi(x, y, bins = 10, splineOrder = 3)
print(z)Run the code above in your browser using DataLab