search for: dpar

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]]