# thread_testing_2.txt
#
# Repetitive use of roll_lm, using the same model on the same data set 5 times in each run.
#
# Each run is defined by the number of threads used by the MKL library and by RcppParallel.
# In this file, the number of MKL threads is fixed at 1 for every run. The number of threads
# for RcppParallel is increased with each run.
#
# The R session is restarted between runs.
#
# The machine has 6 physical cores and runs on Windows 7 x64 SP1, with R 3.3.0 (MRAN version 
# with MKL BLAS library).


> getMKLthreads()
[1] 1

> print(RcppThreads)
[1] 1

> times
[[1]]
   user  system elapsed 
   1.81    0.73    3.84 

[[2]]
   user  system elapsed 
   1.79    0.89    4.21 

[[3]]
   user  system elapsed 
   1.68    0.84    4.60 

[[4]]
   user  system elapsed 
   1.90    0.92    5.73 

[[5]]
   user  system elapsed 
   2.01    0.89    5.81 
   
   

> getMKLthreads()
[1] 1

> print(RcppThreads)
[1] 2

> times
[[1]]
   user  system elapsed 
   2.25    0.87    3.68 

[[2]]
   user  system elapsed 
   2.23    0.80    3.09 

[[3]]
   user  system elapsed 
   2.42    0.89    3.09 

[[4]]
   user  system elapsed 
   2.40    1.09    3.61 

[[5]]
   user  system elapsed 
   2.91    1.00    4.19
   

   
> getMKLthreads()
[1] 1

> print(RcppThreads)
[1] 3

> times
[[1]]
   user  system elapsed 
   2.49    1.26    5.22 

[[2]]
   user  system elapsed 
   2.34    1.50    5.64 

[[3]]
   user  system elapsed 
   2.90    1.20    5.12 

[[4]]
   user  system elapsed 
   3.55    0.94    3.78 

[[5]]
   user  system elapsed 
   3.62    1.14    3.54 
   
   
> getMKLthreads()
[1] 1

> print(RcppThreads)
[1] 4

> times
[[1]]
   user  system elapsed 
   3.54    1.63    6.11 

[[2]]
   user  system elapsed 
   4.36    1.63    4.82 

[[3]]
   user  system elapsed 
   5.65    1.57    4.01 

[[4]]
   user  system elapsed 
   7.01    2.09    4.29 

[[5]]
   user  system elapsed 
   7.96    2.09    4.72




> getMKLthreads()
[1] 1

> print(RcppThreads)
[1] 5

> times
[[1]]
   user  system elapsed 
   4.53    1.77    3.42 

[[2]]
   user  system elapsed 
   6.35    1.95    3.97 

[[3]]
   user  system elapsed 
  10.40    2.26    5.06 

[[4]]
   user  system elapsed 
  12.61    2.68    5.90 

[[5]]
   user  system elapsed 
  16.51    3.37    6.91 
   
   
   


   
 > getMKLthreads()
[1] 1

> print(RcppThreads)
[1] 6

> times
[[1]]
   user  system elapsed 
   4.46    1.74    3.17 

[[2]]
   user  system elapsed 
   7.55    1.94    4.89 

[[3]]
   user  system elapsed 
  10.55    2.70    4.99 

[[4]]
   user  system elapsed 
  12.90    2.23    5.91 

[[5]]
   user  system elapsed 
  17.02    2.67    6.63