BEGIN{
    FS=OFS=" ";
    f="/data/images/proton/DKlab/orsalia/stringtie/edgeRtranscripts_wtVSko.csv";
    getline<f;h="id "$0;
    while(getline<f){nr++;
	id=$1;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=$1;n++;
	partfc[f,id]=$2;
	partcpm[f,id]=$3;
	partpval[f,id]=$4;
	partqval[f,id]=$5;
	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_cpm %s_pval %s_qval",i,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 %s",partfc[i,id],partcpm[i,id],partpval[i,id],partqval[i,id]);
	    }else{
		printf(",NA,NA,NA,NA");
	    }
	}
	printf("\n");
    }
}