require(GenABEL.data)
data(ge03d2)
# D's using D'fast
a <- dprfast(ge03d2,snps=c(1:10))
## Not run:
# library(genetics)
# # D's using package genetics
# b <- LD(as.genotype(ge03d2[,1:10]))$"D'"
# # see that the D's are not exactly the same
# cor(a[upper.tri(a)],b[upper.tri(b)])
# plot(a[upper.tri(a)],b[upper.tri(b)])
# ## End(Not run)
Run the code above in your browser using DataLab