# NOT RUN {
myPar <- bsdPar(10, 2)
M <- genSeq(myPar, 2)
getProb(M)
# All Sequences
par <- pbrPar(bc=c(2,2))
refSet <- getAllSeq(myPar)
probs <- getProb(refSet)
# Sequences with probabilities
cbind(probs, refSet$M)
# }
Run the code above in your browser using DataLab