/**
* Effectue les calculs qui localisent summary stat par summary stat le jeu de données observées par rapport à la table de référence
*/
void cal_loc() {
long double** qobs;
cout << "debut de cal_loc\n";
//float *stat_obs,
float diff;
int scen, **avant, **apres, **egal, nparamax = 0, npartpos = 0, bidon;
enregC enr;
string** star;
//header.calstatobs(statobsfilename);
//stat_obs = header.stat_obs; //cout<<"apres read_statobs\n";
for (int i = 0; i < rt.nscen; i++) if (rt.nparam[i] > nparamax) nparamax = rt.nparam[i];
cout << nparamax << "\n";
enr.param = vector<float>(nparamax);
enr.stat = vector<float>(rt.nstat);
qobs = new long double*[rt.nscen];
for (int i = 0; i < rt.nscen; i++) qobs[i] = new long double[rt.nstat];
star = new string*[rt.nscen];
for (int i = 0; i < rt.nscen; i++) star[i] = new string[rt.nstat];
avant = new int*[rt.nscen];
for (int i = 0; i < rt.nscen; i++) {
avant[i] = new int[rt.nstat];
for (int j = 0; j < rt.nstat; j++) avant[i][j] = 0;
}
apres = new int*[rt.nscen];
for (int i = 0; i < rt.nscen; i++) {
apres[i] = new int[rt.nstat];
for (int j = 0; j < rt.nstat; j++) apres[i][j] = 0;
}
egal = new int*[rt.nscen];
for (int i = 0; i < rt.nscen; i++) {
egal[i] = new int[rt.nstat];
for (int j = 0; j < rt.nstat; j++) egal[i][j] = 0;
}
rt.openfile2();
cout << "avant la lecture des enregistrements header.reference = " << header.reference << "\n";
for (int p = 0; p < rt.nrec; p++) {
if (not header.reference) {
bidon = rt.readrecord(&enr);
if (bidon != 0) cout << "probleme dans la lecture de la table de référence n=" << p << "\n";
} else {
do {
bidon = rt.readrecord(&enr);
} while ((bidon == 0)and (enr.stat[0] > 1.0));
}
npartpos++;
scen = enr.numscen - 1;
for (int j = 0; j < rt.nstat; j++) {
diff = header.stat_obs[j] - enr.stat[j];
if (diff > 0.001) avant[scen][j]++;
else if (diff < -0.001) apres[scen][j]++; else egal[scen][j]++;
}
}
rt.closefile();
cout << "apres la lecture des " << rt.nrec << " enregistrements\n";
for (int j = 0; j < rt.nstat; j++) {
for (int i = 0; i < rt.nscen; i++) {
qobs[i][j] = (long double)(avant[i][j] + apres[i][j] + egal[i][j]);
if (qobs[i][j] > 0.0) qobs[i][j] = (0.5 * (long double)egal[i][j] + (long double)avant[i][j]) / qobs[i][j]; else qobs[i][j] = -1;
star[i][j] = " ";
if ((qobs[i][j] > 0.95)or (qobs[i][j] < 0.05)) star[i][j] = " (*) ";
if ((qobs[i][j] > 0.99)or (qobs[i][j] < 0.01)) star[i][j] = " (**) ";
if ((qobs[i][j] > 0.999)or (qobs[i][j] < 0.001)) star[i][j] = " (***)";
}
cout << setiosflags(ios::left) << setw(15) << header.statname[j] << " (" << setiosflags(ios::fixed) << setw(8) << setprecision(4) << header.stat_obs[j] << ") ";
for (int i = 0; i < rt.nscen; i++) cout << setiosflags(ios::fixed) << setw(8) << setprecision(4) << qobs[i][j] << star[i][j] << " ";
cout << "\n";
}
string nomfiloc;
nomfiloc = path + ident + "_locate.txt";
//strcpy(nomfiloc,path);
//strcat(nomfiloc,ident);
//strcat(nomfiloc,"_locate.txt");
cout << nomfiloc << "\n";
time_t rawtime;
struct tm* timeinfo;
time(&rawtime);
timeinfo = localtime(&rawtime);
ofstream f12(nomfiloc.c_str(), ios::out);
f12 << "DIYABC : PRIOR CHECKING " << asctime(timeinfo) << "\n";
f12 << "Data file : " << header.datafilename << "\n";
f12 << "Reference table : " << rt.filename << "\n";
f12 << "Number of simulated data sets : " << rt.nrec << "\n";
if (header.reference) f12 << "Number of simulated data sets with positive weight : " << npartpos << "\n";
f12 << "\n";
f12 << "Values indicate for each summary statistics the proportion \nof simulated data sets which have a value below the observed one\n";
f12 << " Summary observed";
for (int i = 0; i < rt.nscen; i++) f12 << " scenario ";
f12 << "\n";
f12 << "statistics value ";
for (int i = 0; i < rt.nscen; i++) f12 << " " << setw(3) << i + 1 << " ";
f12 << "\n";
for (int j = 0; j < rt.nstat; j++) {
f12 << setiosflags(ios::left) << setw(15) << header.statname[j] << " (" << setiosflags(ios::fixed) << setw(8) << setprecision(4) << header.stat_obs[j] << ") ";
for (int i = 0; i < rt.nscen; i++) {
f12 << setiosflags(ios::fixed) << setw(6) << setprecision(4) << qobs[i][j] << star[i][j] << " ";
}
f12 << "\n";
}
f12.close();
iprog += 1;
fprog.open(progressfilename.c_str());
fprog << iprog << " " << nprog << "\n";
fprog.close();
cout << iprog << " " << nprog << "\n";
}
/**
* Prépare et appelle une ACP sur les summary stats
*/
void cal_acp() {
long double **matstat, *pca_statobs;
//float *stat_obs;
enregC enr;
int *numscen, k, bidon;
resACPC rACP;
//header.calstatobs(statobsfilename);
//stat_obs = header.stat_obs;
cout << "header.nstat=" << header.nstat << "\n";
for (int i = 0; i < header.nstat; i++) cout << header.stat_obs[i] << "\n";
cout << "apres read_statobs\n";
int nparamax = 0;
for (int i = 0; i < rt.nscen; i++) if (rt.nparam[i] > nparamax) nparamax = rt.nparam[i];
//cout<<nparamax<<"\n";
enr.param = vector<float>(nparamax);
enr.stat = vector<float>(rt.nstat);
if (nacp > rt.nrec) nacp = rt.nrec;
matstat = new long double*[nacp];
numscen = new int [nacp];
pca_statobs = new long double[rt.nstat];
rt.openfile2();
for (int p = 0; p < nacp; p++) {
bidon = rt.readrecord(&enr);
if (bidon == 0) {
matstat[p] = new long double[rt.nstat];
numscen[p] = enr.numscen;
for (int j = 0; j < rt.nstat; j++) matstat[p][j] = enr.stat[j];
}
}
rt.closefile();
cout << "apres la lecture des " << nacp << " enregistrements\n";
if (header.reference) {
long double** matstat0;
int nacp0 = 0, *numscen0;
matstat0 = new long double*[nacp];
numscen0 = new int [nacp];
for (int p = 0; p < nacp; p++) {
if (matstat[p][0] <= 1.0) {
matstat0[nacp0] = new long double[rt.nstat];
numscen0[nacp0] = numscen[p];
for (int j = 0; j < rt.nstat; j++) matstat0[nacp0][j] = matstat[p][j];
nacp0++;
}
}
nacp = nacp0;
for (int p = 0; p < nacp; p++) {
numscen[p] = numscen0[p];
for (int j = 0; j < rt.nstat; j++) matstat[p][j] = matstat0[p][j];
}
}
iprog += 1;
fprog.open(progressfilename.c_str());
fprog << iprog << " " << nprog << "\n";
fprog.close();
cout << "avant ACP\n";
rACP = ACP(nacp, rt.nstat, matstat, 1.0, 0);
cout << "apres ACP path =" << path << "\n";
for (int j = 0; j < rACP.nlambda; j++) {
pca_statobs[j] = 0.0;
for (k = 0; k < rt.nstat; k++) if (rACP.sd[k] > 0.0) pca_statobs[j] += (header.stat_obs[k] - rACP.moy[k]) / rACP.sd[k] * rACP.vectprop[k][j];
}
string nomfiACP;
nomfiACP = path + ident + "_ACP.txt";
//strcpy(nomfiACP,path);
//strcat(nomfiACP,ident);
//strcat(nomfiACP,"_ACP.txt");
cout << nomfiACP << "\n";
ofstream f1;
f1.open(nomfiACP.c_str());
f1 << setiosflags(ios::fixed) << nacp << " " << rACP.nlambda;
f1 << setprecision(3);
for (int i = 0; i < rACP.nlambda; i++) f1 << " " << (rACP.lambda[i] / rACP.slambda);
f1 << "\n";
f1 << "0";
for (int i = 0; i < rACP.nlambda; i++) f1 << " " << pca_statobs[i];
f1 << "\n";
for (int i = 0; i < nacp; i++) {
f1 << numscen[i];
for (int j = 0; j < rACP.nlambda; j++) f1 << " " << rACP.princomp[i][j];
f1 << "\n";
}
f1.close();
iprog += 1;
fprog.open(progressfilename.c_str());
fprog << iprog << " " << nprog << "\n";
fprog.close();
}
