# \donttest{
data(tetraPotato)
#Shuffle the order of markers
potato <- tetraPotato[ , sample(ncol(tetraPotato))]
#Constructing linkage map for tetraploid potato
out <- netmap(potato, cross = "outbred"); out
potato.map <- out$map; potato.map
#plot(out)
# }
Run the code above in your browser using DataLab