# NOT RUN {
data(CviCol)
#Randomly change the order of markers across the genome
cvicol <- CviCol[ ,sample(1:ncol(CviCol), ncol(CviCol), replace=FALSE)]
#Constructing linkage map for Cvi x Col genotype data
out <- netmap(cvicol, cross.typ= "inbred", vis= FALSE, ncores=1); out
plot(out)
map <- out$map; map
#Visualization of other three-dimensional maps
plot(out$allres)
#Constructing a linkage map for 5th three-dimensional map
bm <- buildMap(out, opt.index=5); bm
# }
Run the code above in your browser using DataCamp Workspace