# Forward gen imputation
data(tpod)
fast.impute.gen = markov(gen,chr)
# A matrix
PedMat()
# Pairwise LD
ld = LD(gen[,1:3])
ld = LD(gen[,1:10])
heatmap(ld$r2)
# Spatial correlation kernel
covar()
# Genetic distance
round(Gdist(gen[1:10,],method=1),2)
Run the code above in your browser using DataLab