about summary refs log tree commit diff
path: root/sourcecodes/localscore/stats_stubs.h
diff options
context:
space:
mode:
Diffstat (limited to 'sourcecodes/localscore/stats_stubs.h')
-rw-r--r--sourcecodes/localscore/stats_stubs.h68
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);
-}
-