library(lazytensor)
context("Basic Algebra - gpuR backend")
# set seed
set.seed(123)
ORDER <- 4
# Base R objects
A <- matrix(rnorm(ORDER^2), nrow=ORDER, ncol=ORDER)
B <- matrix(rnorm(ORDER^2), nrow=ORDER, ncol=ORDER)
test_that("Matrix Multiplication", {
skip_on_travis()
skip_on_appveyor()
setBackend("gpuR")
options(gpuR.default.type = "float")
A_tensor = Tensor$new(vclMatrix(A))
B_tensor = Tensor$new(vclMatrix(B))
C <- A %*% B
C_tensor <- matmult(A_tensor, B_tensor)
res <- C_tensor$compute()
expect_is(res, "vclMatrix")
expect_equal(res[], C, tolerance=1e-07,
info="matrix elements not equivalent")
})
if(getOption("lazytensor.backend") != "base"){
setBackend("base")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.