tests/stats-gpu.r

In wrathematics/fmlr: Fused Matrix Library for R

suppressMessages(library(stats)) # for prcomp()
suppressMessages(library(fmlr))

if (fml_gpu()){
  m = 3
  n = 2
  c = card()
  x = gpumat(c, m, n)
  x$fill_linspace(1, m*n)
  xr = x$to_robj()
  
  s = gpuvec(c)
  
  source("internals/common.r")
  source("internals/stats.r")
} # end if (fml_gpu())