BEGIN{
    FS=OFS=",";
    f="/data/images/proton/DKlab/orsalia/stringtie/wtVSko_transcript_results.csv";
    getline<f;h=$0;
    while(getline<f){nr++;
	id=$4;all[id]=$0;ok[id]=1;
    }
    close(f);
    print "ref transcripts "nr >>"/dev/stderr"
}{
    f1=$1; f=substr(f1,1,length(f1)-4);
    he[f]=1;
    getline<f1;n=0;
    while(getline<f1){
	id=$4;n++;
	partfc[f,id]=$5;
	partpval[f,id]=$6;
	partqval[f,id]=$7;
	okpart[f,id]=1;
    }
    close(f1);    
    print "transcripts in "f" : "n >>"/dev/stderr"
}END{
    printf("%s",h);
    for (i in he){
	printf(",%s_fc,%s_pval,%s_qval",i,i,i);
    }
    printf("\n");
    for (id in ok){
	printf("%s",all[id]);
	for (i in he){
	    if (okpart[i,id]==1){
		printf(",%s,%s,%s",partfc[i,id],partpval[i,id],partqval[i,id]);
	    }else{
		printf(",NA,NA,NA");
	    }
	}
	printf("\n");
    }
}