## tetraploid example
probs.t <- calc_genoprob_dist(input.map = solcap.prior.map[[1]],
dat.prob = tetra.solcap.geno.dist,
verbose = TRUE)
probs.t
## displaying individual 1, 36 genotypic states
## (rows) across linkage group 1 (columns)
image(t(probs.t$probs[,,1]))
Run the code above in your browser using DataLab