Replace hyphen by NA in demuxStat

	Ref: #73

bin/demuxStatsFromXML.R

@@ -84,7 +84,7 @@ for (pr in 1:length(projects)){
 				if (length(PerfectBarcodeCount) == 0) { PerfectBarcodeCount<-0 }
 				OneMismatchBarcodeCount<-xml_text(xml_find_all(xml, paste0(lane_path,"/OneMismatchBarcodeCount")))
 				
-				if (length(OneMismatchBarcodeCount) == 0) { OneMismatchBarcodeCount<- "-"}
+				if (length(OneMismatchBarcodeCount) == 0) { OneMismatchBarcodeCount<- NA}
 			
 				df_to_add<-data.frame(project, sample_name, barcode_names[bc], BarcodeCount, PerfectBarcodeCount, OneMismatchBarcodeCount)
 				df<-concat_df(df, df_to_add, vec.names)
@@ -191,7 +191,7 @@ if(nrow(tabUndetermined) > 0) { head(tabUndetermined) }
 if (dim(tabUndetermined)[1] != 0) {
 	df.tabUndetermined<-data.frame()
 	for (i in 1:dim(tabUndetermined)[1]) {
-		df.tabUndetermined.tmp<-data.frame("default", "Undetermined", tabUndetermined[i, "Index"], tabUndetermined[i, "Count"], "-", "-")
+		df.tabUndetermined.tmp<-data.frame("default", "Undetermined", tabUndetermined[i, "Index"], tabUndetermined[i, "Count"], NA, NA)
 		df.tabUndetermined<-concat_df(df.tabUndetermined, df.tabUndetermined.tmp, vec.names)
 	}