Propagate information about scalars into the final table (normalization)

utils/mosaiClassifier/makeSVcalls.R

@@ -51,7 +51,7 @@ makeSVCallSimple <- function(probs, llr_thr = 1) {
 
 
   # Clean up table
-  probs <- probs[, .(chrom, start, end, sample, cell, class, sv_call_name, sv_call_haplotype, sv_call_name_2nd, sv_call_haplotype_2nd, llr_to_ref, llr_to_2nd)]
+  probs <- probs[, .(chrom, start, end, sample, cell, class, scalar, sv_call_name, sv_call_haplotype, sv_call_name_2nd, sv_call_haplotype_2nd, llr_to_ref, llr_to_2nd)]
 
   return(probs[sv_call_name != "ref_hom" & llr_to_ref > llr_thr])
 }