pm = singletons(c("V1", "V2", "V3")) |>
addMarker(V1 = "1/1", V2 = "2/2", V3 = "1/1",
afreq = c("1" = 0.01, "2" = 0.99), name = "L1")
directMatch(pm[[1]], pm[[2]])
directMatch(pm[[1]], pm[[3]])
Run the code above in your browser using DataLab