# NOT RUN {
map <- qtl::sim.map(len = 100, n.mar = 11, include.x=FALSE)
f2Pedigree <- f2Pedigree(1000)
# }
# NOT RUN {
cross <- simulateMPCross(map = map, pedigree = f2Pedigree, mapFunction = haldane, seed = 1)
rf <- estimateRF(cross)
#Print the estimated recombination fraction values
rf@rf@theta[1:11, 1:11]
#Now only estimate recombination fractions between the first 3 markers.
# The other estimates will just be marked as NA
rf <- estimateRF(cross, markerRows = 1:3, markerColumns = 1:3)
#Print the estimated recombination fraction values
rf@rf@theta[1:11, 1:11]
#A more complicated example, where three values are estimated
rf <- estimateRF(cross, markerRows = 1, markerColumns = 1:3)
#Print the estimated recombination fraction values
rf@rf@theta[1:11, 1:11]
#In this case only ONE value is estimated, because only one element of the requested subset
# lies in the upper-triangular part - The value on the diagonal.
rf <- estimateRF(cross, markerRows = 3, markerColumns = 1:3)
#Print the estimated recombination fraction values
rf@rf@theta[1:11, 1:11]
# }
Run the code above in your browser using DataLab