zdebruine / rcppclock Goto Github PK

#define duration(a) std::chrono::duration_cast<std::chrono::nanoseconds>(a).count()
#define now() std::chrono::steady_clock::now()

// [[Rcpp::depends(RcppArmadillo)]]
// [[Rcpp::depends(RcppProgress)]]
// [[Rcpp::depends(RcppClock)]]
// [[Rcpp::plugins("cpp11")]]

#include <RcppArmadillo.h>
#include <progress.hpp>
#include <RcppClock.h>
#include <thread>

// [[Rcpp::export]]
int test()
{

    int X = 50;
    int Y = 50;
    int Z = 50;

    Progress prog(X * Y * Z);
    Rcpp::Clock clock;
    arma::wall_clock timer;

    for (unsigned int x = 0; x < X; x++)
    {
        for (unsigned int y = 0; y < Y; y++)
        {
            for (unsigned int z = 0; z < Z; z++)
            {
                clock.tick("Z action");
                arma::vec tmp(100, arma::fill::randu);
                clock.tock("Z action");
                prog.increment();
            }
        }
    }

    timer.tic();
    clock.stop("times");
    double n = timer.toc();
    arma::cout << "number of seconds: " << n << arma::endl;

    return 0;
}

[R] test()                                                                           
0%   10   20   30   40   50   60   70   80   90   100%
[----|----|----|----|----|----|----|----|----|----|
**************************************************|
number of seconds: 86.5003
[1] 0

[R] sz <- object.size(times)                                                         

[R] print(sz, units = "MB")                                                          
1.9 Mb