Ejemplo n.º 1
0
/**
 *  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";
}
Ejemplo n.º 2
0
/**
 *   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();
}