x = singleton(1) |>
addMarker(chrom = 1, posMb = 10, name = "m1") |>
addMarker(chrom = 1, posMb = 11) |>
addMarker(chrom = 1)
# Compare effect of `na.action`
# \donttest{
getMap(x, na.action = 0)
getMap(x, na.action = 1)
getMap(x, na.action = 2)
# }
# Getting and setting map are inverses
y = setMap(x, getMap(x))
stopifnot(identical(x,y))
hasLinkedMarkers(x)
Run the code above in your browser using DataLab