# In alberta pedigree, probability that one gene picked at random
# from individual 1260 is descended from one gene in founder 52.
library(sped)
data(alberta)
gammas(c(1260, 1272), alberta)
data(thompson)
betas(c("U", "V", "Q", "R", "W"), thompson)
alphas(c("U", "V", "Q", "R", "W"), thompson)
inbreeding(c("U", "V", "Q", "R", "W"), thompson)
kinship(c("U", "V", "Q", "R", "W"), thompson)
Run the code above in your browser using DataLab