1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
|
// #include <Rcpp.h>
#include <RcppArmadillo.h>
#include <deviance.h>
using namespace Rcpp;
// [[Rcpp::export(name = "compute_gp_deviance")]]
double compute_gp_deviance_mask(double y, double mu, double theta) {
return compute_gp_deviance(y, mu, theta);
}
// [[Rcpp::export(name = "compute_gp_deviance_residuals_matrix")]]
arma::Mat<double> compute_gp_deviance_residuals_matrix_mask(const SEXP Y_SEXP, const arma::Mat<double>& Mu, NumericVector thetas) {
return compute_gp_deviance_residuals_matrix(Y_SEXP, Mu, thetas);
}
|