Displaying 1 result from an estimated 1 matches for "cov_pairwise2".
2004 Nov 02
0
how to call function in ../src/main
...e *x, double *y, double *ans ) {
Rboolean cor, kendall, pair, na_fail, sd_0;
int ansmat, method, ncx, ncy;
/* compute correlations if PRIMVAL(op) == 0,
covariances if PRIMVAL(op) != 0 */
cor = 0;
ansmat = 0;
ncx = 1;
ncy = 1;
pair = TRUE;
kendall = FALSE;
cov_pairwise2(n, ncx, ncy, x, y, ans,
&sd_0, cor, kendall);
}
replace
SEXP do_cov(SEXP call, SEXP op, SEXP args, SEXP env)
{
...
}
and we have cor.i which has
/* File : cor.i */
%module cor
extern cor ( int n, double *x, double *y, double *ans );
We have
cor: cor.c...