本文整理汇总了C++中AVector::size方法的典型用法代码示例。如果您正苦于以下问题:C++ AVector::size方法的具体用法?C++ AVector::size怎么用?C++ AVector::size使用的例子?那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类AVector
的用法示例。
在下文中一共展示了AVector::size方法的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的C++代码示例。
示例1: survTimes
// just an R interface to the coxfit routine, for regression testing purposes.
// [[Rcpp::export]]
SEXP
cpp_coxfit(SEXP R_survTimes, SEXP R_censInd, SEXP R_offsets, SEXP R_X, SEXP R_method)
{
// ---------------
// get R objects:
// // extract survival times
// R_interface = CDR(R_interface);
// SEXP R_survTimes = CAR(R_interface);
//
// // censoring status
// R_interface = CDR(R_interface);
// SEXP R_censInd = CAR(R_interface);
//
// // offsets
// R_interface = CDR(R_interface);
// SEXP R_offsets = CAR(R_interface);
//
// // design matrix
// R_interface = CDR(R_interface);
// SEXP R_X= CAR(R_interface);
//
// // and the tie method
// R_interface = CDR(R_interface);
// SEXP R_method = CAR(R_interface);
// ---------------
// unpack R objects:
// survival times
const NumericVector n_survTimes = R_survTimes;
//const AVector survTimes(n_survTimes.begin(), n_survTimes.size(),
// false);
// errors with const and stuff... what if we copy into new memory?
const AVector survTimes(n_survTimes.begin(), n_survTimes.size());
// censoring status
const IntVector censInd = as<IntVector>(R_censInd);
// offsets
const AVector offsets = as<NumericVector>(R_offsets);
// design matrix
const NumericMatrix n_X = R_X;
//const AMatrix X(n_X.begin(), n_X.nrow(),
// n_X.ncol(), false);
//Same issue as above L717:721
const AMatrix X(n_X.begin(), n_X.nrow(),
n_X.ncol());
// tie method
const int method = as<int>(R_method);
// ---------------
// assign remaining arguments for Coxfit
const int nObs = survTimes.size();
const AVector weights = arma::ones<AVector>(nObs);
// ---------------
// get new Coxfit object
Coxfit cox(survTimes,
censInd,
X,
weights,
offsets,
method);
// do the fitting
const int nIter = cox.fit();
// get results: need to do that first!
CoxfitResults fit = cox.finalizeAndGetResults();
// check results
cox.checkResults();
// pack results into R list and return that
return List::create(_["coef"] = fit.coefs,
_["imat"] = fit.imat,
_["loglik"] = fit.loglik,
_["nIter"] = nIter);
}