Displaying 4 results from an estimated 4 matches for "dpar".
Did you mean:
dpaa
2008 Oct 31
0
R help for invoking nmmin()
...temp += tmp->tempX[j][i] * betaFn[i];
}
total += pow(tmp->tempY[j] - temp,2);
}
return total;
}
void mgr(int, double *, double *, void *){}
int main()
{
//cout<<pchisq(2,7,1,0)<<endl;
//cout << qnorm(0.7, 0.0, 1.0, 0, 0) << endl;
int n = 5;
double *dpar, *opar;
int fncount, fail;
dpar = new double [n];
opar = new double [n];
dpar[0] = 13.67318;
dpar[1] = 0;
dpar[2] = 17.02707;
dpar[3] = 0;
dpar[4] = 24.08231;
double value;
double abstol = 1e-16;
double intol = 1e-8;
int y = 12;
MM t = (MM)malloc(y*(n+2)*sizeof(TT));
t-> tempX =...
2007 Oct 23
0
API for optimization with Simulated annealing
...ptry[i] = p[i] + 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;...
1996 Dec 16
0
Re: vixie-crontab for redhat linux (Fix)
...filepos = ftell(f);
fileline = LineNumber;
@@ -128,8 +129,14 @@
name[0] = val[0] = ''\0'';
fields = sscanf(envstr, "%[^ =] = %[^\n#]", name, val);
- if (fields != 2) {
+ if (strlen(envstr) > MAX_TEMPSTR) {
+ Debug(DPARS, ("load_env, var name too long\n"))
+ Error = 1;
+ } else if (fields != 2) {
Debug(DPARS, ("load_env, not 2 fields (%d)\n", fields))
+ Error = 1;
+ }
+ if (Error != 0) {
fseek(f, filepos, 0);...
2009 Jul 02
2
constrained optimisation in R.
...example
sum(Ai)=0 and sum(Bi)=0
i have done it without the constraints but i realised that i have to use the contraints.
Without constraints(just a part-not complete):
skellamreg_LL=function(parameters,z,design)
{
n=length(z);
mu=parameters[1];
H=parameters[2];
Apar=parameters[3:10];
Dpar=parameters[11:18];
res=optim(par,skellamreg_LL,method="Nelder-Mead", hessian = FALSE, control=list(trace=1000,maxit=100000),z=z,design=x,)
_________________________________________________________________
[[alternative HTML version deleted]]