if (FALSE) {
## Compute IBD probabilities for Steptoe Morex.
## Add extra evaluation positions in between exiting marker positions
## to assure evaluation positions are at most 2 cM apart.
SxMIBD_Ext <- calcIBD(popType = "DH",
markerFile = system.file("extdata/SxM", "SxM_geno.txt",
package = "statgenIBD"),
mapFile = system.file("extdata/SxM", "SxM_map.txt",
package = "statgenIBD"),
evalDist = 2)
## Plot results for genotype dh005.
plot(SxMIBD_Ext,
plotType = "singleGeno",
genotype = "dh005")
## Plot results for all genotypes.
plot(SxMIBD_Ext,
plotType = "allGeno")
## Plot structure of the pedigree.
plot(SxMIBD_Ext,
plotType = "pedigree")
## Plot genetic map.
plot(SxMIBD_Ext,
plotType = "map")
## Plot coverage across population.
plot(SxMIBD_Ext,
plotType = "meanProbs")
## Plot total coverage.
plot(SxMIBD_Ext,
plotType = "totalCoverage")
}
Run the code above in your browser using DataLab