data(listeria)
mymarker <- find.marker(listeria, 5, 28) # marker D5M357
plot.pxg(listeria, mymarker)
data(fake.f2)
mname <- find.marker(fake.f2, 1, 37) # marker D1M437
plot.pxg(fake.f2, mname)
mname <- find.marker(fake.f2, "X", 14) # marker DXM66
plot.pxg(fake.f2, mname)
Run the code above in your browser using DataLab