Create test_blas.R

rocker-org · Mar 9, 2019 · 46eb86a · 46eb86a
1 parent 85991f9
commit 46eb86a
Showing 1 changed file with 19 additions and 0 deletions.
diff --git a/cuda/base/test_blas.R b/cuda/base/test_blas.R
@@ -0,0 +1,19 @@
+
+N <- 2^13
+system.time(
+  replicate(10,{
+  matrix(rnorm(N*N), nrow=N, ncol=N) %*% 
+  matrix(rnorm(N*N), nrow=N, ncol=N)})
+  )
+
+
+N <- 2^14
+system.time(
+    matrix(rnorm(N*N), nrow=N, ncol=N) %*% 
+      matrix(rnorm(N*N), nrow=N, ncol=N)
+)
+N <- 2^12
+system.time({
+  M <- matrix(rnorm(N*N), nrow=N, ncol=N)
+ replicate(10, det(M))
+})