# NOT RUN {
## Example pedigree from Wray 1990
Wray90 <- data.frame(id = seq(8),
dam = c(NA, NA, 1, 1, 4, 4, 6, 7),
sire = c(NA, NA, 2, 2, 3, 2, 5, 5),
time = c(0, 0, 1, 1, 2, 2, 3, 4))
#### Implement Casellas & Medrano (2008) algorithm
Mout <- makeMinv(Wray90[, 1:3])
#### Wray (1990) algorithm with extra argument `theta`
Mwray <- makeMinv(Wray90[, 1:3], theta = 10.0)$Minv # compare to Wray p.184
# }
Run the code above in your browser using DataLab