-
Notifications
You must be signed in to change notification settings - Fork 1
/
yuima_init.c
128 lines (122 loc) · 8.95 KB
/
yuima_init.c
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
#include <R.h>
#include <Rinternals.h>
#include <stdlib.h> // for NULL
#include <R_ext/Rdynload.h>
/* FIXME:
Check these declarations against the C/Fortran source code.
*/
/* .C calls */
extern void bibsynchro(void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void ctsubsampling(void *, void *, void *, void *, void *, void *, void *);
extern void HayashiYoshida(void *, void *, void *, void *, void *, void *, void *);
extern void hyavar(void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void hycrossavar(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void HYcrosscorr(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void HYcrosscorr2(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void HYcrosscov(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void HYcrosscov2(void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void krprod(void *, void *, void *, void *);
extern void msrc(void *, void *, void *, void *, void *, void *, void *);
extern void pHayashiYoshida(void *, void *, void *, void *, void *, void *, void *, void *);
extern void refreshsampling(void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void refreshsamplingphy(void *, void *, void *, void *, void *, void *, void *, void *, void *, void *);
extern void rGIG(void *, void *, void *, void *, void *);
extern void rpts(void *, void *, void *, void *, void *);
/* .Call calls */
extern SEXP _yuima_cpp_collapse(SEXP, SEXP);
extern SEXP _yuima_cpp_E(SEXP);
extern SEXP _yuima_cpp_ito(SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_cpp_ito_outer(SEXP, SEXP);
extern SEXP _yuima_cpp_ito_product(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_cpp_label(SEXP);
extern SEXP _yuima_cpp_outer(SEXP, SEXP);
extern SEXP _yuima_cpp_paste(SEXP, SEXP, SEXP);
extern SEXP _yuima_cpp_split(SEXP, SEXP);
extern SEXP _yuima_detcpp(SEXP);
extern SEXP _yuima_evalKernelCpp(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_evalKernelCpp2(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_Irregular_PseudoLoglik_COG(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_is_zero(SEXP);
extern SEXP _yuima_likndim(SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_makeprop(SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_residualCpp(SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_Smake(SEXP, SEXP);
extern SEXP _yuima_solvecpp(SEXP);
extern SEXP _yuima_sqnorm(SEXP);
extern SEXP _yuima_sub_f(SEXP, SEXP);
extern SEXP _yuima_W1(SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_W2(SEXP, SEXP, SEXP);
extern SEXP Cycle_Carma(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP euler(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP pseudoLoglik_COGARCH1(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_driftTermCpp(SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_diffusionTermCpp(SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_measureTermCpp(SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_calc_filter_vcov(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_calc_filter_mean(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_minusloglcpp_linear_state_space_theta1(SEXP,SEXP,SEXP, SEXP);
extern SEXP _yuima_minusloglcpp_linear_state_space_theta2(SEXP,SEXP,SEXP, SEXP, SEXP);
extern SEXP _yuima_calc_filter_vcov_are(SEXP, SEXP, SEXP, SEXP);
extern SEXP _yuima_calc_filter_mean_explicit(SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP, SEXP);
static const R_CMethodDef CEntries[] = {
{"bibsynchro", (DL_FUNC) &bibsynchro, 9},
{"ctsubsampling", (DL_FUNC) &ctsubsampling, 7},
{"HayashiYoshida", (DL_FUNC) &HayashiYoshida, 7},
{"hyavar", (DL_FUNC) &hyavar, 9},
{"hycrossavar", (DL_FUNC) &hycrossavar, 19},
{"HYcrosscorr", (DL_FUNC) &HYcrosscorr, 12},
{"HYcrosscorr2", (DL_FUNC) &HYcrosscorr2, 11},
{"HYcrosscov", (DL_FUNC) &HYcrosscov, 10},
{"HYcrosscov2", (DL_FUNC) &HYcrosscov2, 9},
{"krprod", (DL_FUNC) &krprod, 4},
{"msrc", (DL_FUNC) &msrc, 7},
{"pHayashiYoshida", (DL_FUNC) &pHayashiYoshida, 8},
{"refreshsampling", (DL_FUNC) &refreshsampling, 9},
{"refreshsamplingphy", (DL_FUNC) &refreshsamplingphy, 10},
{"rGIG", (DL_FUNC) &rGIG, 5},
{"rpts", (DL_FUNC) &rpts, 5},
{NULL, NULL, 0}
};
static const R_CallMethodDef CallEntries[] = {
{"_yuima_cpp_collapse", (DL_FUNC) &_yuima_cpp_collapse, 2},
{"_yuima_cpp_E", (DL_FUNC) &_yuima_cpp_E, 1},
{"_yuima_cpp_ito", (DL_FUNC) &_yuima_cpp_ito, 5},
{"_yuima_cpp_ito_outer", (DL_FUNC) &_yuima_cpp_ito_outer, 2},
{"_yuima_cpp_ito_product", (DL_FUNC) &_yuima_cpp_ito_product, 8},
{"_yuima_cpp_label", (DL_FUNC) &_yuima_cpp_label, 1},
{"_yuima_cpp_outer", (DL_FUNC) &_yuima_cpp_outer, 2},
{"_yuima_cpp_paste", (DL_FUNC) &_yuima_cpp_paste, 3},
{"_yuima_cpp_split", (DL_FUNC) &_yuima_cpp_split, 2},
{"_yuima_detcpp", (DL_FUNC) &_yuima_detcpp, 1},
{"_yuima_evalKernelCpp", (DL_FUNC) &_yuima_evalKernelCpp, 10},
{"_yuima_evalKernelCpp2", (DL_FUNC) &_yuima_evalKernelCpp2, 13},
{"_yuima_Irregular_PseudoLoglik_COG", (DL_FUNC) &_yuima_Irregular_PseudoLoglik_COG, 15},
{"_yuima_is_zero", (DL_FUNC) &_yuima_is_zero, 1},
{"_yuima_likndim", (DL_FUNC) &_yuima_likndim, 4},
{"_yuima_makeprop", (DL_FUNC) &_yuima_makeprop, 4},
{"_yuima_residualCpp", (DL_FUNC) &_yuima_residualCpp, 5},
{"_yuima_Smake", (DL_FUNC) &_yuima_Smake, 2},
{"_yuima_solvecpp", (DL_FUNC) &_yuima_solvecpp, 1},
{"_yuima_sqnorm", (DL_FUNC) &_yuima_sqnorm, 1},
{"_yuima_sub_f", (DL_FUNC) &_yuima_sub_f, 2},
{"_yuima_W1", (DL_FUNC) &_yuima_W1, 4},
{"_yuima_W2", (DL_FUNC) &_yuima_W2, 3},
{"Cycle_Carma", (DL_FUNC) &Cycle_Carma, 12},
{"euler", (DL_FUNC) &euler, 11},
{"pseudoLoglik_COGARCH1", (DL_FUNC) &pseudoLoglik_COGARCH1, 14},
{"_yuima_driftTermCpp", (DL_FUNC) &_yuima_driftTermCpp, 4},
{"_yuima_diffusionTermCpp", (DL_FUNC) &_yuima_diffusionTermCpp, 4},
{"_yuima_measureTermCpp", (DL_FUNC) &_yuima_measureTermCpp, 4},
{"_yuima_calc_filter_vcov", (DL_FUNC) &_yuima_calc_filter_vcov, 6},
{"_yuima_calc_filter_mean", (DL_FUNC) &_yuima_calc_filter_mean, 11},
{"_yuima_minusloglcpp_linear_state_space_theta1", (DL_FUNC) &_yuima_minusloglcpp_linear_state_space_theta1, 4},
{"_yuima_minusloglcpp_linear_state_space_theta2", (DL_FUNC) &_yuima_minusloglcpp_linear_state_space_theta2, 5},
{"_yuima_calc_filter_vcov_are", (DL_FUNC) &_yuima_calc_filter_vcov_are, 4},
{"_yuima_calc_filter_mean_explicit", (DL_FUNC) &_yuima_calc_filter_mean_explicit, 9},
{NULL, NULL, 0}
};
void R_init_yuima(DllInfo *dll)
{
R_registerRoutines(dll, CEntries, CallEntries, NULL, NULL);
R_useDynamicSymbols(dll, FALSE);
}