x = singleton(1)
m1 = marker(x, chrom = 1, posMb = 10, name = "m1")
m2 = marker(x, chrom = 1, posMb = 11)
m3 = marker(x, chrom = 1)
x = setMarkers(x, list(m1, m2, m3))
# Compare effect of `na.action`
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