explicit use of gputools::, no more SVD on gpu

Author: eddelbuettel

R/benchmark.R

@@ -33,7 +33,7 @@ matmultBenchmark <- function(N, n, trim=0.1) {
 
 matmultBenchmarkgputools <- function(N, n, trim=0.1) {
     a <- getMatrix(N)
-    traw <- replicate(n, system.time(gpuMatMult(a,a))[3])
+    traw <- replicate(n, system.time(gputools::gpuMatMult(a,a))[3])
     tmean <- mean(traw,trim=trim)
 }
 
@@ -51,7 +51,7 @@ qrBenchmark <- function(N, n, trim=0.1) {
 
 qrBenchmarkgputools <- function(N, n, trim=0.1) {
     a <- getMatrix(N)
-    traw <- replicate(n, system.time(gpuQr(a))[3])
+    traw <- replicate(n, system.time(gputools::gpuQr(a))[3])
     tmean <- mean(traw,trim=trim)
 }
 
@@ -74,11 +74,11 @@ svdBenchmark <- function(N, n, trim=0.1) {
 ##     tmean <- mean(traw,trim=trim)
 ## }
 
-svdBenchmarkgputools <- function(N, n, trim=0.1) {
-    a <- getMatrix(N)
-    traw <- replicate(n, system.time(gpuSvd(a))[3])
-    tmean <- mean(traw,trim=trim)
-}
+#svdBenchmarkgputools <- function(N, n, trim=0.1) {
+#    a <- getMatrix(N)
+#    traw <- replicate(n, system.time(gputools::gpuSvd(a))[3])
+#    tmean <- mean(traw,trim=trim)
+#}
 
 luBenchmark <- function(N, n, trim=0.1) {
     a <- getMatrix(N)

man/benchmark.Rd

@@ -6,7 +6,7 @@
 \alias{qrBenchmark}
 \alias{qrBenchmarkgputools}
 \alias{svdBenchmark}
-\alias{svdBenchmarkgputools}
+%\alias{svdBenchmarkgputools}
 \alias{luBenchmark}
 \alias{luBenchmarkgputools}
 \title{Benchmarking functions for GPU/CPU Benchmarking}
@@ -20,7 +20,7 @@
   qrBenchmark(N, n, trim=0.1)
   qrBenchmarkgputools(N, n, trim=0.1)
   svdBenchmark(N, n, trim=0.1)
-  svdBenchmarkgputools(N, n, trim=0.1)
+%  svdBenchmarkgputools(N, n, trim=0.1)
   luBenchmark(N, n, trim=0.1)
   luBenchmarkgputools(N, n, trim=0.1)
 }
@@ -44,8 +44,8 @@
 
   \code{svdBenchmark} times the cost of a Singular Value Decomposition
   (SVD) of a matrix of the given size, repeated as specified and returns
-  the trimmed mean of the elapsed times. \code{svdBenchmarkgputools}
-  does the same using the \strong{gputools} package.
+  the trimmed mean of the elapsed times. %\code{svdBenchmarkgputools}
+  %does the same using the \strong{gputools} package.
 
   \code{luBenchmark} times the cost of a LU Decomposition of a matrix of
   the given size, repeated as specified and returns the trimmed mean of