version 1.114, 2006/02/26 12:57:58
|
version 1.115, 2006/02/27 12:17:45
|
Line 1
|
Line 1
|
/* $Id$ |
/* $Id$ |
$State$ |
$State$ |
$Log$ |
$Log$ |
|
Revision 1.115 2006/02/27 12:17:45 brouard |
|
(Module): One freematrix added in mlikeli! 0.98c |
|
|
Revision 1.114 2006/02/26 12:57:58 brouard |
Revision 1.114 2006/02/26 12:57:58 brouard |
(Module): Some improvements in processing parameter |
(Module): Some improvements in processing parameter |
filename with strsep. |
filename with strsep. |
Line 304 extern int errno;
|
Line 307 extern int errno;
|
/* $Id$ */ |
/* $Id$ */ |
/* $State$ */ |
/* $State$ */ |
|
|
char version[]="Imach version 0.98b, January 2006, INED-EUROREVES "; |
char version[]="Imach version 0.98c, February 2006, INED-EUROREVES "; |
char fullversion[]="$Revision$ $Date$"; |
char fullversion[]="$Revision$ $Date$"; |
int erreur, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings */ |
int erreur, nberr=0, nbwarn=0; /* Error number, number of errors number of warnings */ |
int nvar; |
int nvar; |
Line 1668 void mlikeli(FILE *ficres,double p[], in
|
Line 1671 void mlikeli(FILE *ficres,double p[], in
|
|
|
powell(p,xi,npar,ftol,&iter,&fret,func); |
powell(p,xi,npar,ftol,&iter,&fret,func); |
|
|
|
free_matrix(xi,1,npar,1,npar); |
fclose(ficrespow); |
fclose(ficrespow); |
printf("\n#Number of iterations = %d, -2 Log likelihood = %.12f\n",iter,func(p)); |
printf("\n#Number of iterations = %d, -2 Log likelihood = %.12f\n",iter,func(p)); |
fprintf(ficlog,"\n#Number of iterations = %d, -2 Log likelihood = %.12f \n",iter,func(p)); |
fprintf(ficlog,"\n#Number of iterations = %d, -2 Log likelihood = %.12f \n",iter,func(p)); |