/* * R : A Computer Language for Statistical Data Analysis * Copyright (C) 1998-2018 The R Core Team * * This header file 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 file is part of R. R is distributed under the terms of the * GNU General Public License, either Version 2, June 1991 or Version 3, * June 2007. See doc/COPYRIGHTS for details of the copyright status of R. * * 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 * https://www.R-project.org/Licenses/ * * * Application Routines, typically implemented in ../appl/ * ---------------------------------------------- ======== */ /* This header file contains routines which are in the R API and ones which are not. Those which are not can be used only at the user's risk and may change or disappear in a future release of R. */ #ifndef R_APPLIC_H_ #define R_APPLIC_H_ #include #include /* F77_... */ #include #ifdef __cplusplus extern "C" { #endif /* Entry points in the R API */ /* ../../appl/integrate.c */ typedef void integr_fn(double *x, int n, void *ex); /* vectorizing function f(x[1:n], ...) -> x[] {overwriting x[]}. */ void Rdqags(integr_fn f, void *ex, double *a, double *b, double *epsabs, double *epsrel, double *result, double *abserr, int *neval, int *ier, int *limit, int *lenw, int *last, int *iwork, double *work); void Rdqagi(integr_fn f, void *ex, double *bound, int *inf, double *epsabs, double *epsrel, double *result, double *abserr, int *neval, int *ier, int *limit, int *lenw, int *last, int *iwork, double *work); /* main/optim.c */ typedef double optimfn(int, double *, void *); typedef void optimgr(int, double *, double *, void *); void vmmin(int n, double *b, double *Fmin, optimfn fn, optimgr gr, int maxit, int trace, int *mask, double abstol, double reltol, int nREPORT, void *ex, int *fncount, int *grcount, int *fail); void nmmin(int n, double *Bvec, double *X, double *Fmin, optimfn fn, int *fail, double abstol, double intol, void *ex, double alpha, double bet, double gamm, int trace, int *fncount, int maxit); void cgmin(int n, double *Bvec, double *X, double *Fmin, optimfn fn, optimgr gr, int *fail, double abstol, double intol, void *ex, int type, int trace, int *fncount, int *grcount, int maxit); void lbfgsb(int n, int m, double *x, double *l, double *u, int *nbd, double *Fmin, optimfn fn, optimgr gr, int *fail, void *ex, double factr, double pgtol, int *fncount, int *grcount, int maxit, char *msg, int trace, int nREPORT); void samin(int n, double *pb, double *yb, optimfn fn, int maxit, int tmax, double ti, int trace, void *ex); /* appl/interv.c: Also in Utils.h, used in package eco */ int findInterval(double *xt, int n, double x, Rboolean rightmost_closed, Rboolean all_inside, int ilo, int *mflag); // findInterval2() is only in Utils.h (and hence Rinternals.h) /* ------------------ Entry points NOT in the R API --------------- */ /* The following are registered for use in .C/.Fortran */ /* appl/dqrutl.f: interfaces to dqrsl */ void F77_NAME(dqrqty)(double *x, int *n, int *k, double *qraux, double *y, int *ny, double *qty); void F77_NAME(dqrqy)(double *x, int *n, int *k, double *qraux, double *y, int *ny, double *qy); void F77_NAME(dqrcf)(double *x, int *n, int *k, double *qraux, double *y, int *ny, double *b, int *info); void F77_NAME(dqrrsd)(double *x, int *n, int *k, double *qraux, double *y, int *ny, double *rsd); void F77_NAME(dqrxb)(double *x, int *n, int *k, double *qraux, double *y, int *ny, double *xb); /* end of registered */ /* hidden, for use in R.bin/R.dll/libR.so */ /* appl/pretty.c: for use in engine.c and util.c */ double R_pretty(double *lo, double *up, int *ndiv, int min_n, double shrink_sml, const double high_u_fact[], int eps_correction, int return_bounds); /* For use in package stats */ /* appl/uncmin.c : */ /* type of pointer to the target and gradient functions */ typedef void (*fcn_p)(int, double *, double *, void *); /* type of pointer to the hessian functions */ typedef void (*d2fcn_p)(int, int, double *, double *, void *); void fdhess(int n, double *x, double fval, fcn_p fun, void *state, double *h, int nfd, double *step, double *f, int ndigit, double *typx); /* Also used in packages nlme, pcaPP */ void optif9(int nr, int n, double *x, fcn_p fcn, fcn_p d1fcn, d2fcn_p d2fcn, void *state, double *typsiz, double fscale, int method, int iexp, int *msg, int ndigit, int itnlim, int iagflg, int iahflg, double dlt, double gradtl, double stepmx, double steptl, double *xpls, double *fpls, double *gpls, int *itrmcd, double *a, double *wrk, int *itncnt); /* find qr decomposition, dqrdc2() is basis of R's qr(), also used by nlme and many other packages. */ void F77_NAME(dqrdc2)(double *x, int *ldx, int *n, int *p, double *tol, int *rank, double *qraux, int *pivot, double *work); void F77_NAME(dqrls)(double *x, int *n, int *p, double *y, int *ny, double *tol, double *b, double *rsd, double *qty, int *k, int *jpvt, double *qraux, double *work); #ifdef __cplusplus } #endif #endif /* R_APPLIC_H_ */