https://github.com/cran/nacopula
Revision 5bc804b03d066ef4a2ab9cf3af6f4f2df5bcda4e authored by Martin Maechler on 23 September 2011, 00:00:00 UTC, committed by Gabor Csardi on 23 September 2011, 00:00:00 UTC
1 parent f64e14b
Tip revision: 5bc804b03d066ef4a2ab9cf3af6f4f2df5bcda4e authored by Martin Maechler on 23 September 2011, 00:00:00 UTC
version 0.7-9-1
version 0.7-9-1
Tip revision: 5bc804b
polyn_eval.c
/*
Copyright (C) 2010 Marius Hofert and Martin Maechler
This program is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free Software
Foundation; either version 3 of the License, or (at your option) any later
version.
This program is distributed in the hope that it will be useful, but WITHOUT
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
details.
You should have received a copy of the GNU General Public License along with
this program; if not, see <http://www.gnu.org/licenses/>.
*/
#include "nacopula.h"
SEXP polyn_eval(SEXP coef, SEXP x)
{
SEXP result;
int n = LENGTH(x), i, j,
m = LENGTH(coef);
// deal with integer or numeric -- NULL cannot (yet?) be coerced
if(isNull(x)) { result = allocVector(REALSXP, 0); return result; }
if(!isNull(coef)) coef = coerceVector(coef, REALSXP);
PROTECT(coef);
PROTECT(x = coerceVector(x, REALSXP));
PROTECT(result = Rf_duplicate(x));
double *cf = REAL(coef), *xx = REAL(x), *res = REAL(result);
for(i = 0; i < n; i++) {
double r, xi = xx[i];
if(m == 0) {
r = 0.;
} else {
j = m-1;
r = cf[j];
for (j--; j >= 0; j--)
r = cf[j] + r * xi;
}
res[i] = r;
}
UNPROTECT(3);
return result;
}
Computing file changes ...