69 lines
3.2 KiB
C++
69 lines
3.2 KiB
C++
// Generated by using Rcpp::compileAttributes() -> do not edit by hand
|
|
// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
|
|
|
|
#include <RcppArmadillo.h>
|
|
#include <Rcpp.h>
|
|
|
|
using namespace Rcpp;
|
|
|
|
// estimateBandwidth
|
|
double estimateBandwidth(const arma::mat& X, arma::uword k, double nObs);
|
|
RcppExport SEXP _CVE_estimateBandwidth(SEXP XSEXP, SEXP kSEXP, SEXP nObsSEXP) {
|
|
BEGIN_RCPP
|
|
Rcpp::RObject rcpp_result_gen;
|
|
Rcpp::RNGScope rcpp_rngScope_gen;
|
|
Rcpp::traits::input_parameter< const arma::mat& >::type X(XSEXP);
|
|
Rcpp::traits::input_parameter< arma::uword >::type k(kSEXP);
|
|
Rcpp::traits::input_parameter< double >::type nObs(nObsSEXP);
|
|
rcpp_result_gen = Rcpp::wrap(estimateBandwidth(X, k, nObs));
|
|
return rcpp_result_gen;
|
|
END_RCPP
|
|
}
|
|
// rStiefel
|
|
arma::mat rStiefel(arma::uword p, arma::uword q);
|
|
RcppExport SEXP _CVE_rStiefel(SEXP pSEXP, SEXP qSEXP) {
|
|
BEGIN_RCPP
|
|
Rcpp::RObject rcpp_result_gen;
|
|
Rcpp::RNGScope rcpp_rngScope_gen;
|
|
Rcpp::traits::input_parameter< arma::uword >::type p(pSEXP);
|
|
Rcpp::traits::input_parameter< arma::uword >::type q(qSEXP);
|
|
rcpp_result_gen = Rcpp::wrap(rStiefel(p, q));
|
|
return rcpp_result_gen;
|
|
END_RCPP
|
|
}
|
|
// cve_cpp
|
|
Rcpp::List cve_cpp(const arma::mat& X, const arma::vec& Y, const std::string method, const int k, const double nObs, double h, const double tauInitial, const double rho1, const double rho2, const double tol, const int maxIter, const int maxLineSearchIter, const int attempts);
|
|
RcppExport SEXP _CVE_cve_cpp(SEXP XSEXP, SEXP YSEXP, SEXP methodSEXP, SEXP kSEXP, SEXP nObsSEXP, SEXP hSEXP, SEXP tauInitialSEXP, SEXP rho1SEXP, SEXP rho2SEXP, SEXP tolSEXP, SEXP maxIterSEXP, SEXP maxLineSearchIterSEXP, SEXP attemptsSEXP) {
|
|
BEGIN_RCPP
|
|
Rcpp::RObject rcpp_result_gen;
|
|
Rcpp::RNGScope rcpp_rngScope_gen;
|
|
Rcpp::traits::input_parameter< const arma::mat& >::type X(XSEXP);
|
|
Rcpp::traits::input_parameter< const arma::vec& >::type Y(YSEXP);
|
|
Rcpp::traits::input_parameter< const std::string >::type method(methodSEXP);
|
|
Rcpp::traits::input_parameter< const int >::type k(kSEXP);
|
|
Rcpp::traits::input_parameter< const double >::type nObs(nObsSEXP);
|
|
Rcpp::traits::input_parameter< double >::type h(hSEXP);
|
|
Rcpp::traits::input_parameter< const double >::type tauInitial(tauInitialSEXP);
|
|
Rcpp::traits::input_parameter< const double >::type rho1(rho1SEXP);
|
|
Rcpp::traits::input_parameter< const double >::type rho2(rho2SEXP);
|
|
Rcpp::traits::input_parameter< const double >::type tol(tolSEXP);
|
|
Rcpp::traits::input_parameter< const int >::type maxIter(maxIterSEXP);
|
|
Rcpp::traits::input_parameter< const int >::type maxLineSearchIter(maxLineSearchIterSEXP);
|
|
Rcpp::traits::input_parameter< const int >::type attempts(attemptsSEXP);
|
|
rcpp_result_gen = Rcpp::wrap(cve_cpp(X, Y, method, k, nObs, h, tauInitial, rho1, rho2, tol, maxIter, maxLineSearchIter, attempts));
|
|
return rcpp_result_gen;
|
|
END_RCPP
|
|
}
|
|
|
|
static const R_CallMethodDef CallEntries[] = {
|
|
{"_CVE_estimateBandwidth", (DL_FUNC) &_CVE_estimateBandwidth, 3},
|
|
{"_CVE_rStiefel", (DL_FUNC) &_CVE_rStiefel, 2},
|
|
{"_CVE_cve_cpp", (DL_FUNC) &_CVE_cve_cpp, 13},
|
|
{NULL, NULL, 0}
|
|
};
|
|
|
|
RcppExport void R_init_CVE(DllInfo *dll) {
|
|
R_registerRoutines(dll, NULL, CallEntries, NULL, NULL);
|
|
R_useDynamicSymbols(dll, FALSE);
|
|
}
|