Uživatel:Jkl~cswikiversity/Studuji cpp/Výpis korelace

Z Wikiverzity

Tento program přežvýká výstup korelačních analýz v R do dále zpracovatelné podoby.

#include <iostream>
#include <fstream>
#include<string>
#include<cstdio>
#include<vector>

using namespace std;

int isdata(string s){
 if (s[0]!='d') return 0;
 if (s[1]!='a') return 0;
 if (s[2]!='t') return 0;
 if (s[3]!='a') return 0;
 if (s[4]!=':') return 0;
 return 1;
}


int main(int argc, char *argv[])
{
   if (argc != 2)
   {
      cerr << "Nutno volat s parametrem 1 souboru !" << endl;
      return -1;
   }
   cout<<"Korel_koef;confid_95_min;confid_95_max;t;DF;p-value;var1;var2"<<endl;
   ifstream in(argv[1]);
   string s;
   vector<string> sv;
   sv.insert(sv.begin(),8,"");
   int i;
   while(getline(in, s)){
        if (isdata(s)) {
            sv[0]=s;
            for (i=1;i!=8;++i){
                getline(in, sv[i]);
            }
            std::cout<<sv[7]<<";"<<sv[4]<<";"<<sv[1]<<sv[0]<<endl;

        }
     }
   return 0;
}