sesame oracle: compare without bead-count masking on both sides

Co-Authored-By: Claude Opus 5.5 <[email protected]>
Claude-Session: https://claude.ai/code/session_01814GKVzZVL3FuF3DeiZXhv

scripts/v2/sesame_oracle.R

@@ -24,7 +24,9 @@ inband <- function(s) {
   list(m = m, u = u)
 }
 for (prefix in args[-(1:3)]) {
-  read <- function() readIDATpair(prefix, platform = "EPIC", manifest = mft, controls = controls, min_beads = 3)
+  # no bead-count masking here (sesame's min_beads also masks every Infinium II probe, whose M address is NA);
+  # the comparison script runs simurg with the same setting
+  read <- function() readIDATpair(prefix, platform = "EPIC", manifest = mft, controls = controls)
   sdf <- tryCatch(read(), error = function(e) {
     message("first read failed (", conditionMessage(e), "); caching idatSignature and retrying")
     sesameDataCache("idatSignature")