require(GenABEL.data)
data(ge03d2)
# rhos using rhofast
a <- rhofast(ge03d2,snps=c(1:10))
## Not run:
# library(genetics)
# # rhos using package genetics
# b <- LD(as.genotype(ge03d2[,1:10]))$"R^2"
# # see that the rhos 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