## Compute IBD probabilities for Steptoe Morex.
SxMIBD <- calcIBD(popType = "DH",
markerFile = system.file("extdata/SxM", "SxM_geno.txt",
package = "statgenIBD"),
mapFile = system.file("extdata/SxM", "SxM_map.txt",
package = "statgenIBD"))
## Get probabilities for a single marker.
probOne <- getProbs(IBDprob = SxMIBD,
markers = "plc")
head(probOne)
## Get probabilities for a multiple markers.
probMult <- getProbs(IBDprob = SxMIBD,
markers = c("plc", "tuba1"))
head(probMult)
Run the code above in your browser using DataLab