Eigen using BLAS

Marwolaeth · Jun 6, 2023 · d9eafa4 · d9eafa4
1 parent 73deebc
commit d9eafa4
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 2 deletions.
diff --git a/main/main.R b/main/main.R
@@ -121,10 +121,10 @@ bm <- microbenchmark(
 )
 bm
 
-bm <- microbenchmark(
+bm_xy <- microbenchmark(
   standard = polychoric(table(gss12_values$valorig, gss12_values$valeql)),
   polycorr = polycorr(gss12_values$valorig, gss12_values$valeql),
   times = 32L,
   control = list(warmup = 6)
 )
-bm
+bm_xy
diff --git a/src/Makevars b/src/Makevars
@@ -3,3 +3,5 @@
 CXX_STD = CXX11
 PKG_CPPFLAGS = -I../inst/include/
 ARCH=x64
+PKG_LIBS =  $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS) $(SHLIB_OPENMP_CXXFLAGS)
+PKG_CXXFLAGS = -DEIGEN_USE_BLAS $(SHLIB_OPENMP_CXXFLAGS)
diff --git a/src/Makevars.win b/src/Makevars.win
@@ -3,3 +3,5 @@
 CXX_STD = CXX11
 PKG_CPPFLAGS = -I../inst/include/
 ARCH=x64
+PKG_LIBS =  $(LAPACK_LIBS) $(BLAS_LIBS) $(FLIBS) $(SHLIB_OPENMP_CXXFLAGS)
+PKG_CXXFLAGS = -DEIGEN_USE_BLAS $(SHLIB_OPENMP_CXXFLAGS)
diff --git a/src/functions.cpp b/src/functions.cpp
@@ -1,5 +1,7 @@
 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
 
+#define EIGEN_USE_BLAS
+
 #include <Rcpp.h>
 #include <RcppEigen.h>
 // [[Rcpp::depends(RcppEigen)]]