added info for FilterMotifs.stats

loosolab · Dec 14, 2018 · 8669b3e · 8669b3e
1 parent 156e417
commit 8669b3e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bin/merge.R b/bin/merge.R
@@ -32,5 +32,5 @@ difference = formatC(sumb/suma, digits=4)
 loss = formatC(1 - suma/sumb, digits=2)
 lengthb = formatC(mean(before$V3-before$V2), digits=4)
 lengtha = formatC(mean(splitted$length), digits=4)
-stats=data.frame(sum_nt_input=sumb, sum_nt_filtered=suma, factor=difference, loss=loss, mean_length_input=lengthb, mean_length_filtered=lengtha)
+stats=data.frame(sum_nt_input=sumb, sum_nt_filtered=suma, factor=difference, loss=loss, mean_length_input=lengthb, mean_length_filtered=lengtha, flag_1_ratio=length(which(splitted$containsMaxpos == 1))/dim(splitted)[1])
 write.table(stats, "../FilterMotifs.stats", row.names=FALSE, quote=FALSE, sep='\t')