if (FALSE) {
# To do a Geary_Moran test on a 10 marker haplotype
gaps <- c(0, 50, 60, 80, 20, 30, 50, 40, 50, 100, 0)
set.similarity(nloci=10, spacing=gaps, power=0.5)
test <- tdt.quad(hap.use, funct=T)
}
Run the code above in your browser using DataLab