Displaying 4 results from an estimated 4 matches for "fminfn".
2007 Oct 23
0
API for optimization with Simulated annealing
...scale * norm_rand(); /* new candidate point */
- }
+ else
+ genptry_default(n, p, ptry, scale, ex);
}
/* par fn gr method options */
@@ -275,7 +280,7 @@
} else {
PROTECT(OS->R_gcall = R_NilValue); /* for balance */
}
- samin (npar, dpar, &val, fminfn, maxit, tmax, temp, trace, (void *)OS);
+ samin (npar, dpar, &val, fminfn, &genptry, maxit, tmax, temp, trace, (void *)OS);
for (i = 0; i < npar; i++)
REAL(par)[i] = dpar[i] * (OS->parscale[i]);
fncount = npar > 0 ? maxit : 1;
@@ -1084,8 +1089,...
2001 Jan 26
2
Suggestion for an extension of the API
Dear R Developers (I think in particular Brian)
Especially for larger optimization problems, it would be nice to have an
entry point for C/C++ code to the R optimizers (the ones which are called
when using optim()), where the client just has to provide the functions
fminfn() and fmingr() and calls directly, e.g., vmmin() (all from
$RHOME/src/main/optim.c). Are there any plans for providing such an entry
point?
best
Adrian
--
Dr. Adrian Trapletti, Olsen & Associates Ltd.
Seefeldstrasse 233, CH-8008 Zürich, Switzerland
Phone: +41 (1) 386 48 47 Fax: +41 (1...
2003 Oct 31
1
Optimization of objective function with generic number of arguments (R-Extension with C code)
...lt;-function(par) fn(par,...)
res <-.External(MyOptimC(par, fn1,new.env()))
...
}
#My C function
__declspec (dllexport) SEXP MyOptimC(SEXP args)
{
args = CDR(args); SEXP par = CAR(args);
args = CDR(args); SEXP fn = CAR(args);
rho = CDR(args); SEXP rho = CAR(args);
SEXP fminfn = lang2(fn, R_NilValue));
...
}
I suceedeed only for objective functions with a specific number of
arguments, while for the problem at hand I tried to replicate the code in
optim.c and related files but without any result. Is there someone on the
list who can me give me some insight, pie...
2006 Apr 13
1
bus error on calling nmmin
...ffffb7c "???P???X???`") at
../../../../R-2.1.1/src/main/printutils.c:494
#8 0x0054da70 in Rprintf (format=0xbfff9570 "Error: invalid
connection\n") at ../../../../R-2.1.1/src/main/printutils.c:445
#9 0x0051bcec in nmmin (n=6575856, Bvec=0x5f0dc8, X=0xbffffd58,
Fmin=0xbffffd60, fminfn=0x2b8c <parabola>, fail=0xbffffd68,
abstol=9.9999999999999998e-17, intol=1e-08, ex=0x0, alpha=1, bet=0.5,
gamm=2, trace=4, fncount=0xbffffd9c, maxit=1000) at
../../../../R-2.1.1/src/main/optim.c:667
#10 0x00002ce0 in main () at nmminDemo.c:30
-----
I'm working under Mac OS X 10.3.9 with...