onemap (version 2.0-4)

draw.map: Draw a genetic map

Description

Provides a simple draw of a genetic map.

Usage

draw.map(map.list, horizontal=FALSE, names=FALSE, grid=FALSE, cex.mrk=1, cex.grp=.75)

Arguments

map.list

a map, i.e. an object of class sequence with a predefined order, linkage phases, recombination fraction and likelihood; also it could be a list of maps.

horizontal

if TRUE, indicates that the map should be plotted horizontally. Default is FALSE

names

if TRUE, displays the names of the markers. Default is FALSE

grid

if TRUE, displays a grid in the background. Default is FALSE

cex.mrk

the magnification to be used for markers.

cex.grp

the magnification to be used for group axis annotation.

Examples

# NOT RUN {
 #outcross example
  data(example.out)
  twopt <- rf.2pts(example.out)
  lg<-group(make.seq(twopt, "all"))
  maps<-vector("list", lg$n.groups)
  for(i in 1:lg$n.groups)
     maps[[i]]<- make.seq(order.seq(input.seq= make.seq(lg,i),twopt.alg =
   "rcd"), "force")
  draw.map(maps, grid=TRUE)
  draw.map(maps, grid=TRUE, horizontal=TRUE)

  #F2 example
  data(fake.f2.onemap)
  twopt<-rf.2pts(fake.f2.onemap)
  lg<-group(make.seq(twopt, "all"))
  maps<-vector("list", lg$n.groups)
  for(i in 1:lg$n.groups)
     maps[[i]]<- make.seq(order.seq(input.seq= make.seq(lg,i),twopt.alg =
   "rcd"), "force")
  draw.map(maps, grid=TRUE)
  draw.map(maps, grid=TRUE, horizontal=TRUE)

# }