# NOT RUN {
data(testCross)
plotRF(testCross, main="riself generate.biomarkers example")
cross_ <- reduceChromosomesNumber(testCross,5,verb=TRUE)
plotRF(cross_, main="Leaving only 5 chromosomes")
cross_ <- removeChromosomes(testCross,1,verb=TRUE)
plotRF(cross_, main="Removing chromosome 1")
cross_ <- removeTooSmallChromosomes(testCross,5,verb=TRUE)
plotRF(cross_, main="Leaving only chromosomes with more than 5 markers")
# }
Run the code above in your browser using DataLab