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