library(gpuR)
# gpuMatrix objects
X <- gpuMatrix(rnorm(100), 10, 10)
Y <- gpuMatrix(rnorm(100), 10, 10)
# transfer data to GPU when operation called
# automatically copied back to CPU
Z <- X %*% Y
library(gpuR)
# vclMatrix objects
X <- vclMatrix(rnorm(100), 10, 10)
Y <- vclMatrix(rnorm(100), 10, 10)
# data always on GPU
# no data transfer
Z <- X %*% Y