-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathRcppExports.cpp
81 lines (78 loc) · 3.18 KB
/
RcppExports.cpp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
// This file was generated by Rcpp::compileAttributes
// Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
#include <Rcpp.h>
using namespace Rcpp;
// hazard
List hazard(NumericVector y1, NumericVector y2, NumericVector lev, NumericVector wt);
RcppExport SEXP DStree_hazard(SEXP y1SEXP, SEXP y2SEXP, SEXP levSEXP, SEXP wtSEXP) {
BEGIN_RCPP
SEXP __sexp_result;
{
Rcpp::RNGScope __rngScope;
Rcpp::traits::input_parameter< NumericVector >::type y1(y1SEXP );
Rcpp::traits::input_parameter< NumericVector >::type y2(y2SEXP );
Rcpp::traits::input_parameter< NumericVector >::type lev(levSEXP );
Rcpp::traits::input_parameter< NumericVector >::type wt(wtSEXP );
List __result = hazard(y1, y2, lev, wt);
PROTECT(__sexp_result = Rcpp::wrap(__result));
}
UNPROTECT(1);
return __sexp_result;
END_RCPP
}
// hazardl
List hazardl(NumericVector y1, NumericVector y2, NumericVector lev, int ind, NumericVector wt);
RcppExport SEXP DStree_hazardl(SEXP y1SEXP, SEXP y2SEXP, SEXP levSEXP, SEXP indSEXP, SEXP wtSEXP) {
BEGIN_RCPP
SEXP __sexp_result;
{
Rcpp::RNGScope __rngScope;
Rcpp::traits::input_parameter< NumericVector >::type y1(y1SEXP );
Rcpp::traits::input_parameter< NumericVector >::type y2(y2SEXP );
Rcpp::traits::input_parameter< NumericVector >::type lev(levSEXP );
Rcpp::traits::input_parameter< int >::type ind(indSEXP );
Rcpp::traits::input_parameter< NumericVector >::type wt(wtSEXP );
List __result = hazardl(y1, y2, lev, ind, wt);
PROTECT(__sexp_result = Rcpp::wrap(__result));
}
UNPROTECT(1);
return __sexp_result;
END_RCPP
}
// hazardr
List hazardr(NumericVector y1, NumericVector y2, NumericVector lev, int ind, NumericVector wt);
RcppExport SEXP DStree_hazardr(SEXP y1SEXP, SEXP y2SEXP, SEXP levSEXP, SEXP indSEXP, SEXP wtSEXP) {
BEGIN_RCPP
SEXP __sexp_result;
{
Rcpp::RNGScope __rngScope;
Rcpp::traits::input_parameter< NumericVector >::type y1(y1SEXP );
Rcpp::traits::input_parameter< NumericVector >::type y2(y2SEXP );
Rcpp::traits::input_parameter< NumericVector >::type lev(levSEXP );
Rcpp::traits::input_parameter< int >::type ind(indSEXP );
Rcpp::traits::input_parameter< NumericVector >::type wt(wtSEXP );
List __result = hazardr(y1, y2, lev, ind, wt);
PROTECT(__sexp_result = Rcpp::wrap(__result));
}
UNPROTECT(1);
return __sexp_result;
END_RCPP
}
// lik
double lik(NumericVector S, NumericVector pi, NumericVector ncens, NumericVector nuncens);
RcppExport SEXP DStree_lik(SEXP SSEXP, SEXP piSEXP, SEXP ncensSEXP, SEXP nuncensSEXP) {
BEGIN_RCPP
SEXP __sexp_result;
{
Rcpp::RNGScope __rngScope;
Rcpp::traits::input_parameter< NumericVector >::type S(SSEXP );
Rcpp::traits::input_parameter< NumericVector >::type pi(piSEXP );
Rcpp::traits::input_parameter< NumericVector >::type ncens(ncensSEXP );
Rcpp::traits::input_parameter< NumericVector >::type nuncens(nuncensSEXP );
double __result = lik(S, pi, ncens, nuncens);
PROTECT(__sexp_result = Rcpp::wrap(__result));
}
UNPROTECT(1);
return __sexp_result;
END_RCPP
}