diff options
Diffstat (limited to 'sourcecodes/localscore/stats_stubs.h')
| -rw-r--r-- | sourcecodes/localscore/stats_stubs.h | 68 |
1 files changed, 0 insertions, 68 deletions
diff --git a/sourcecodes/localscore/stats_stubs.h b/sourcecodes/localscore/stats_stubs.h deleted file mode 100644 index bc46821e..00000000 --- a/sourcecodes/localscore/stats_stubs.h +++ /dev/null @@ -1,68 +0,0 @@ -/* - * R : A Computer Language for Statistical Data Analysis - * Copyright (C) 2007 The R Core Team. - * - * This program is free software; you can redistribute it and/or modify - * it under the terms of the GNU Lesser General Public License as published by - * the Free Software Foundation; either version 2.1 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 Lesser General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public License - * along with this program; if not, a copy is available at - * http://www.r-project.org/Licenses/ - */ - -#include <Rconfig.h> -#include <Rinternals.h> -#include <R_ext/Rdynload.h> - -#ifdef HAVE_VISIBILITY_ATTRIBUTE -# define attribute_hidden __attribute__ ((visibility ("hidden"))) -#else -# define attribute_hidden -#endif - -void attribute_hidden -S_Rf_divset(int alg, int iv[], int liv, int lv, double v[]) -{ - static void(*fun)(int,int[],int,int,double[]) = NULL; - if (fun == NULL) - fun = (void(*)(int,int[],int,int,double[])) - R_GetCCallable("stats", "Rf_divset"); - fun(alg, iv, liv, lv, v); -} - -void attribute_hidden -S_nlminb_iterate(double b[], double d[], double fx, double g[], double h[], - int iv[], int liv, int lv, int n, double v[], double x[]) -{ - static void(*fun)(double[],double[],double,double[],double[], - int[],int,int,int,double[],double[]) = NULL; - if (fun == NULL) - fun = (void(*)(double[],double[],double,double[],double[], - int[],int,int,int,double[],double[])) - R_GetCCallable("stats", "nlminb_iterate"); - fun(b, d, fx, g, h, iv, liv, lv, n, v, x); -} - -void attribute_hidden -S_nlsb_iterate(double b[], double d[], double dr[], int iv[], int liv, - int lv, int n, int nd, int p, double r[], double rd[], - double v[], double x[]) -{ - static void(*fun)(double[],double[],double[],int[],int,int, - int,int,int,double[],double[],double[], - double[]) = NULL; - if (fun == NULL) - fun = (void(*)(double[],double[],double[],int[],int, - int, int,int,int,double[], - double[],double[],double[])) - R_GetCCallable("stats", "nlsb_iterate"); - fun(b, d, dr, iv, liv, lv, n, nd, p, r, rd, v, x); -} - |
