# \donttest{
## tetraploid example
w1 <- calc_genoprob(solcap.dose.map[[1]])
h.prob <- calc_homologprob(w1)
print(h.prob)
plot(h.prob, ind = 5, use.plotly = FALSE)
## using error modeling (removing noise)
w2 <- calc_genoprob_error(solcap.err.map[[1]])
h.prob2 <- calc_homologprob(w2)
print(h.prob2)
plot(h.prob2, ind = 5, use.plotly = FALSE)
# }
Run the code above in your browser using DataLab