当前位置: 首页>>代码示例>>C++>>正文


C++ AVector::size方法代码示例

本文整理汇总了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);

}
开发者ID:cran,项目名称:glmBfp,代码行数:91,代码来源:coxfit.cpp


注:本文中的AVector::size方法示例由纯净天空整理自Github/MSDocs等开源代码及文档管理平台,相关代码片段筛选自各路编程大神贡献的开源项目,源码版权归原作者所有,传播和使用请参考对应项目的License;未经允许,请勿转载。