sync
This commit is contained in:
parent
16e03fad3c
commit
a796a38799
|
@ -7,6 +7,9 @@
|
||||||
// > sourceCpp('runtime_tests_grad.cpp')
|
// > sourceCpp('runtime_tests_grad.cpp')
|
||||||
//
|
//
|
||||||
|
|
||||||
|
// // #define ARMA_DONT_USE_WRAPPER
|
||||||
|
// #define ARMA_DONT_USE_BLAS
|
||||||
|
|
||||||
// [[Rcpp::depends(RcppArmadillo)]]
|
// [[Rcpp::depends(RcppArmadillo)]]
|
||||||
#include <RcppArmadillo.h>
|
#include <RcppArmadillo.h>
|
||||||
#include <math.h>
|
#include <math.h>
|
||||||
|
@ -102,7 +105,7 @@ arma::mat grad(const arma::mat& X,
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
// weighted first, secend order responce means `y1`, `y2`
|
// weighted first, second order responce means `y1`, `y2`
|
||||||
// and component wise Loss `L(i) = L_n(V, X_i)`
|
// and component wise Loss `L(i) = L_n(V, X_i)`
|
||||||
vec y1(n);
|
vec y1(n);
|
||||||
vec y2(n);
|
vec y2(n);
|
||||||
|
@ -376,7 +379,7 @@ setup.tests <- function () {
|
||||||
}
|
}
|
||||||
mbm <- microbenchmark(
|
mbm <- microbenchmark(
|
||||||
arma = arma_grad(X, X_diff, Y, Y_rep, V, h),
|
arma = arma_grad(X, X_diff, Y, Y_rep, V, h),
|
||||||
grad = grad(Xt, Y, V, h),
|
# grad = grad(Xt, Y, V, h),
|
||||||
grad_p = grad_p(Xt, Y, V, h),
|
grad_p = grad_p(Xt, Y, V, h),
|
||||||
check = comp.all,
|
check = comp.all,
|
||||||
setup = setup.tests(),
|
setup = setup.tests(),
|
||||||
|
|
Loading…
Reference in New Issue