1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#include <R_ext/Rdynload.h>
#include <mvtnorm.h>
// external API
void mvtnorm_C_mvtdst(int *n, int *nu, double *lower, double *upper,
int *infin, double *corr, double *delta,
int *maxpts, double *abseps, double *releps,
double *error, double *value, int *inform, int *rnd) {
static void(*fun)(int*, int*, double*, double*,
int*, double*, double*,
int*, double*, double*,
double*, double*, int*, int*) = NULL;
if (fun == NULL)
fun = (void(*)(int*, int*, double*, double*,
int*, double*, double*,
int*, double*, double*,
double*, double*, int*, int*)) R_GetCCallable("mvtnorm", "C_mvtdst");
fun(n, nu, lower, upper, infin, corr, delta,
maxpts, abseps, releps, error, value, inform, rnd);
}
|
